
La deseada continuacion de "EXPLODING FIST" 

ya es una realidad; FIST II es mucho mas que una segunda parte: 

mas de 100 pantallas y 700 sprites diferentes en las que 

los oponentes al "GRAN MAESTRO" se esconden en bosques, acantilados, 

cavernas y lugares con paisajes que te asombraran. 

"Exploding Fist" fue la revelacion; "FIST II", la consagracion . 
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Editorial 



LA TRANSICION QUE NOS 

VIENE 



Llegan las entranables fechas de la Navidad, 
que para el sector informatico representan una 
reactivacion de las ventas, sea de hardware o, 
con mayor intensidad, del software de diverti- 
mento. Nos encontramos en mementos de tran- 
sicion del mercado. EI 87 sera el momento de 
expansion del segmento PC y compatribles. La 
principal razon obedece a la brusca bajada de 
precios y la incorporacion de nuevos fabricantes 
de compatibles. Tal es el caso de Amstrad, que 
con su esperado PC 1512 lograra disparar la de- 
manda per parte de los usuarios domesticos. 
Baja el liston para acceder a sistemas que hasta 



hace pocos meses estaban considerados como 
coto de los profesionales y empresas. 

En el otro extremo se situa el ordenador ne- 
tamente destinado a juegos. Los nuevos precios 
mas bajos,comoen el caso del propio Spectrum 
+2 y los MSX, conseguiran que esta clase de 
sistemas scan ampliamente adoptados en los ho- 
gares como un articulo de consumo mas. 

Grandes esperanzas se han puesto en el pro- 
mete dor 1987. 

For nuestro lado os deseamos Feliz Navidad a 
todos los que compartis estas paginas mes a mes 
con nosotros. 



LOS MEJORES DE INPUT 

Memos pensado que es interesante disponer de un ranking que El resultado de las votaciones sera publicado en cada numero 
ponga en claro, mes a mes, cuales son los pragramas preferidos de INPUT, 



de nuestros lectores. Para ello, es obligado preguntaros directamen- 
te y tener asi el mejor termometro para conocer vuestras preferen- 
cias, Podeis volar por cualquier programa aunque no haya sido co- 
mentado todavia en INPUT. 



Entre los votantes sortearemos 1 cintas de los titulos que pidais 
en vuestros cupones. 
Nota: No es precise que corteis la revista, una copia hecha a 

maquina o una simple fotocopia sirven. 



Enviad vuestros votos a: LOS MEJORES DE INPUT P.° de la Castellana, 93. Planta 14. 28046 Madrid 
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LA B ATALL A 
DE LOS MAGOS 

La epoca de Archon est^i tocando a su fin. Imponetites guerras de colera magica y 
monstruos recorriendo los eletnentos hambrientos de poder y de presas. El jtiicio 

del apocalipsis ensombrece todo. 



ARCHON Ii: 

ADEPT 
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ELECTRONIC ARTS- 



FREE FALL 
^ASSOCIATES 
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ELTABLERO 



P.V.P.: 2500 pts. 



EN CASTELLANO 




EL CAMPO DE BATALLA 



En medio de los turbulentos elementos un Adepto del 
Orden conjura a una Gorgona para mandarla en contra de 
una sirena enemiga, Ese es un punto magico por el cual ellos 
combatiran. Por lo menos, a veces lo es. Y el Orden necesita 
mas ener^a. Desesperadamente. No seia fadl, a las sirenas 
les gusta el agua por eso el Caos la pu50 alii. 



El tablero se convierte en la arena y la estrategia se 
convierte en acci6n. La cancion mortal de la sirena 
comienia instantaneaniiente a mermar la fuerra vital de su 
adversario. La Gorgona necesitara toda su increible 
velocidad y capacidad a corta distancia. No hay cosa tal 
como un combate largo con una Sirena, 




DRO SOFT 



La Unica Mezcla de Estrategia y Acxi6n de Arrade de ARCHON. 

Diferentes Campos de Batalla: Tierra, Agua, Aire y Fuego. 

12 Monstruos Conjurables Diferent^. 

4 Hechiceros Adeptos en Cada Bando. 

16 2 Jugadores con un Computo-jugador- 

Adaptacion al castellano: Los Obreros Especializados del AVLADOR DRO. 
Editado per DRO SOFT. Fundadores, 3 - 28028 Madrid. Telf. 255 45 00/09 
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EL SID, PROGESADOR DE SENALES 
ANALOGICAS 



EI articulo pretende dar una vision 
de procesaniiento de senaies analogicas 
a traves del SID. Para ello se describe 
el funcionamiento del filtro programa- 
ble, asi como el manejo de senaies ex- 
ternas. Asiinisnio, se incluyen una se- 
rie de programas de demostracion y de 
ideas destinados a! lector. 



MUSiCA 
POR DATASSETTE 

La utilizticion del Datassette no se 
restringe unicamente a la carga y sal- 
vaguarda de programas y datos. An 
tes de comprar el Datassette seguro 
que mas de uno habra preguntado al 
vendedor si el cassette servia para re- 
producir musica. Naturalmente la res- 
puesta fue negativa. Sin embargo^ a 
partir de ahora, podras escuchar cin- 
tas de audio a traves del ordenador. 
La calidad del sonido reproducido no 
es buena, ya que la transmision de da- 
tos del cassette al ordenador es seria- 
da, es decir, bit a bit. Esto solo per- 
mite manejar dos niveles, serial o no 
senal, con lo que el sonido reproduci- 
do queda excesivamente «cuadricula- 
do». Si se dispusiera de una entrada 
en paralelo, como la del port del usua- 
rio, la calidad mejoraria notablemen- 
te. El programa que sigue escrito en 
ensamblador, permite escuchar una 
grabacion dc audio. 



para Commodore-64 

LDA SDCDD 

CMP #$10 

BEQ $COOC 

LDA #$00 

JMP $COOE 

LDA #$0F 

STA $D418 

JMP $C000 



COOO 
C003 
COOS 
C007 
C009 
COOC 
CODE 
C011 



Para los que no dispongan de en- 



samblador, pueden utilizar la siguien- 
te version BASIC: 



para Commodore-64 



10 FOR I=:49152 TO 49171: 
READ A:POKE I, A: NEXT 

20 DATA 173,13,220,201,16, 
240,5,169,0,76,14,192, 
169,15,141,24,212,76,0, 
192 

El programa se pone en marcha me- 
diante SYS 49152. Una vez lanzado 
basta con poner un cinta de miisica en 
el Datassette y apretar la tecla PLAY 
del mismo. 

El programa funciona del siguicnte 
modo: En el acumulador se carga el 
valor procedente del Datassette, que el 
sistema almacena en la posicion de 
memoria 56333. Este valor, proceden- 
te de la digitalizacion de la senal ana- 
logica de la cinta, unicamente puede 
ser 6 16, segun se haya leido senal 
suficiente o no. A continuacion se 
compara con el valor 16 lo leido en di- 
cha posicion. Si la comparacion ha re- 
sultado positiva, se pone el vo lumen 
al maximo, pcro si ha sido negativa se 
anula. Estas variaciones del volumen 
son audibles e intentan seguir las sc- 
iiales del cassette. El proceso se repite 
ciclicamente hasta pulsar 
RUN/STOP y RESTORE , unica 
forma de detener el programa. 

Quiza los resultados no sean del 
todo satisfactorios. No obstante, exis- 
te una interesante aplicacion practica 
a la que podemos destinar el progra- 
ma: la locaHzacion rapida de otros 
programas. Efectivamente, es posible 
escuchar tambien grabaciones digita- 
les de programas para encontrar rapi- 
damente la cabecera de los mismos o 
reconocer el formato en que han sido 
grabados. El programa, ubicado en 
una zona alta de la memoria, no se ve 
afectado por la mayoria de programas 



BASIC, con lo que puede reutilizarse 
una y otra vez. 



LA ENTRADA DE AUDIO 
EXTERIOR 

La calidad del sonido pucdc mcjo- 
rarse sustancialmente si hacemos uso 
de la entrada de audio exterior. El 
Commodore 64 permite la entrada a su 
chip dc sonido de una serial analogica 
de forma directa. Esta senal es repro- 
ducida, junto con las tres voces de so- 
nido, por el ordenador y puede cscu- 
charse de forma nitida en el receptor 
de television o monitor. La utilizacion 
dc una entrada analogica supone que 
la senal sera tratada como tal sin su- 
frir deform aciones apreciables en su 
paso por el SID. Ademas, esta senal 
exterior es totalmente indcpcndiente 
del sonido generado por el propio or- 
denador y pueden, por tanto, simulta- 
nearse. 

Es posible, tambien, modificar la 
senal exterior, como mas adelante ve- 
remos. 

Para conectar la serial exterior al or- 
denador basta con tender dos cables 
desde la fuente de sonido hasta las pa- 
tillas 5 y 2 del conector de AU- 
DIO/VIDEO. La unica precaucion 
que hay que tener es que la serial no 
supere los 3 v. de amplitud. Por tan- 
to, pueden utilizarse como fuentes las 
salidas de senal de una platina o sin- 
tonizador hacia el amplificador, la sa- 
lida para auriculares de cualquier apa- 
rato de musica y, en general, cualquier 
schal que no sobrepase los limites 
mencionados. De lo contrario podna 
danarse el ordenador. 

Tal y'como se ha dicho, la entrada 
exterior es independiente de lo que el 
ordenador este generando. En cual- 
quier momento podemos oir lo que 
llega por esta entrada sin mas que ac- 
tivar el volumen con POKE 54296,15. 
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Programacion 



MUSICA POR DATASSETTE 



ENTRADA DE AUDIO EXTERIOR 
EL FILTR Q PRQGRAMABLE 

DEL SID 

CREANDO EFECTOS 




Una aplicacion inmediata e intere- 
sante consiste, pues, en escuchar nues- 
tra musica tavorita mientras tecleamos 
o ejecutamos un programa. Incluso 
po demos disfrutar, en la mayoria de 
los casos, con un video juego basado 
en una famosa pelicula, deleitandonos 
simultaneamente con su banda sono- 
ra. Mas aiin. es posiblc utilizar el or- 
denador como amplificador, introdu- 
ciendole sen ales de fuentes de poca po- 
tencia, como por ejemplo un walkman. 



La cosa no acaba aqui; el sonido in- 
troducido puede modificarse de mul- 
tiples formas creando curiosisimos 
cfcctos, como a continuacion vere- 
mos. 



EL FfLTRO PROGRAMABLE DEL 
SID 

La principal tor ma dc modificar la 
serial exterior es utilizando el filtro 



programable que incorpora el chip de 
sonido. 

Un sonido cualquiera tiene lo que 
se llama un espectro de frecuencias, el 
cual lo caracteriza de forma univoca. 
Asi hablamos de que un sonido es agu- 
do cuando su espectro de frecuencias 
contiene principalmente frecuencias 
altas. Pues bien, lo que hace un filtro 
es seleccionar una parte del espectro, 
es decir, dejar pasar ciertas frecuen- 
cias de un sonido. De esta forma se 



INPUT 7 




pueden distinguir varios tipos de fil- 
tros: 

- Paso bajo: deja pasar las frecuen- 
cias mas bajas hasta una determinada 
denominada de corte. 

- Paso alto: actua como el anterior 
pcro permitiendo el paso unicamente 
a las altas. 

- Paso banda: deja pasar una band a 
de frecuencias centrada en torno a la 
denominada central. 

- Banda eliminada: elimina una ban- 
da del espectro. 

El Commodore 64 permite utilizar 
cualquiera de estos cuatro filtros, e in- 
duso una combinacion de ellos, ya 
que lleva incorporado un filtro progra- 
mable. La programacion se efectua al- 
terando de forma adecuada ciertos re- 
gistros del SID. 

Los registros 21 (posicion 54293 de 
la memoria) y 22 (54294) se encargan 
de establecer la frecuencia de corte, 
para los filtros paso bajo o paso alto, 
o la central, para el paso banda. Para 
seleccionarla basta obtener un nume- 
ro de once bits mediante la siguiente 
expresion : 



FREC. CORTE CENTRAL - 30 



N=- 



5,8 



En esta formula la frecuencia debe 
ir expresada en Hertz, o lo que es lo 
mismo en ciclos/segundo. 

El niimero N debe descomponerse 
en dos partes: los 8 bits mas significa- 
tivos de N deben introducirse en el rc- 
gistro 22 y los 3 menos significativos 
en los bits a 2 del rcgistro 21. Por 
ejemplo, si tomamos la frecuencia de 
corte de 1 KHz = 1000 Hz. tendremos 
que N = 167 (decimal) = 00010100111 
(binario). Por tanto, en el registro 21 
se introduce 111 (bin.) = 7 (dec), es 
decir, POKE 54293,7 y en el 22, 
00010100 (binario) = 20 (dec), o sea, 
POKE 54294,20. 

El registro 23 indica que senales pa- 
san por el filtro. El bit activado in- 
dica que la voz 1 pasa por el filtro; ac- 
tivando el bit 1 pasa la voz 2; hacien- 
do lo propio con el 2, pasa la voz 3 y 
finalinente activando el bit 3 pasa la 



senal exterior. Naturalmente pueden 
realizarse todas las combinaciones que 
se desee. 

Los bits 4 a 7 de este rcgistro se uti- 
lizan para determinar la frecuencia de 
resonancia del filtro, aunque no son 
demasiado importantes. 

El registro 24 (54296), a parte de 
determinar el volumen, selecciona el 
tipo de filtro a utilizar. Activando los 
bits 4, 5 y 6 se activan respectivamen- 
te los filtros paso bajo, paso banda y 
paso alto. Pueden hacerse combina- 
ciones y obtener asi una banda elimi- 
nada activando el paso bajo y paso 
alto. 

El espectro de frecuencias audibles 
va desdc los 20 Hz. hasta los 20.000 
Hz., por lo que los filtros solo son ope- 
ratives dentro de estos margenes. 



CREANDO EFECTOS 



Son innumerables los efectos que se 
pueden crear utilizando el filtro y el 
control de volumen sobre una senal 
exterior. El mas sencillo, quiza, con- 
sista en fiacer subir lentamente el vo- 
lumen hasta el maximo para conseguir 
una transicion suave entre silencio y 
musica. 

Podemos comprobar como actiian 
los filtros sobre un sonido externo me- 
diante el siguiente programa: 

para Commodore-64 

10 PRINT "(CLR) PASO 

BAJO-1" 
20 PRINT "PASO BANDA-2" 
30 PRINT "PASO ALTO-3" 
40 INPUT "TIPO DE FILTRO 

";N% 
50 IF N%<1 OR N%>3 THEN 

100 
60 POKE 54295^8: 

POKE 54296,1 5+8*2^N% 
70 IF N%=1 THEN A=240 
80 IF N%>1 THEN A=0 
90 POKE 54294, A 
100 GET A$;IF A$="" THEN 

100 
110 IF A$="CF1)" THEN 
IF A$<240 THEN 
A=A+2 



120 IF A$="CF3)" THEN 
IF A>2 THEN A=A~2 
130 GOTO 90 

Al ejecutar el programa y seleccio- 
nar la opcion paso bajo o paso alto oi- 
remos la musica sin alteraciones. Sin 
embargo, pulsando Fl y F3 podemos 
subir o bajar las frecuencias de corte. 
Si habiendo seleccionado el paso bajo 
vamos bajandola, oiremos como cada 
vez los sonidos son mas graves y cada 
vez mas ininteligibles. Subiendo la fre- 
cuencia del paso alto solo dejaremos 
pasar los agudos y el sonido produci- 
do sera chirriante. Usando el paso 
banda podemos seleccionar margenes 
mas estrechos de frecuencia , Podemos 
asi actualizar un sonido. 

El efecto mas espectacular se consi- 
gue haciendo variar la frecuencia cen- 
tral del paso banda de forma rapida. 
De esta manera, la musica exterior ex- 
periinenta curiosas fluctuaciones y el 
sonido parece mas artificial. Estos 
efectos se perciben mejor si introduci- 
mos voz humana en lugar de musica. 
El siguiente programa permite com- 
probar lo comentado: 



para Commodore-64 

10 POKE 54296,47: POKE 

54295,8 
20 FOR 1=20 TO 240 STEP 2 

:POKE 54294, I:NEXT 
30 FOR 1=240 TO 20 STEP-2 

:POKE 54294, I:NEXT 
40 GOTO 20 

La variacion de la frecuencia del fil- 
tro es lineal, pero podemos hacer que 
esta sea armonica sin mas que sustituir 
las lineas 20 y 30 por : 

para Commodore-64 

20 FOR 1=0 TO 2*3.1415 

STEP .1:A=110+9D*SINCI) 
30 POKE 54294, ArNEXT 

Si no nos gust a el efecto puede va- 
riarse la velocidad de fluctuacion mo- 
dificando el STEP. 

Ramon y David Olle 
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DiSO SQPT 



Uno de tos heroes mas famosos del "Comic" se 

convierte en realidad en este soberbio juego de Arcade 

de VIRGIN GAMES, editado en Espana por DRO SOFT. 

Fundadores, 3 - 28028 Madrid. Telf. 255 45 00/09 



Aplieaciones 



JUGANDO CON LAS 
PALABRAS (y II) 



Ordenacion de listas por orden alfa- 
betico, biisqueda de una secuencia es- 
peciflca de caracteres, redaccion de 
cartas; todo esto podras hacer ademas 
de imprimir tu propio texto. 

En la parte anterior del listado del 
editor de textos ya has introducido los 
elementos basicos del editor de panta- 
11a que te permitiran crear ficheros de 
texto o ficheros de datos. En esta ter- 
cera y ultima parte examinaremos las 
rutinas SORT, SEARCH, PRINTER 
y FORM LETTER. 



ORDENACIOfM 



La rutina de ordenacion utiliza un 
procedimiento de clasificacidn para 
ordenar las Imeas por orden alfabeti- 
co. Por ello resulta de gran utilidad en 
la ordenacion de listas tales como in- 
dices o registros. 



BUSQUEDA 



La utilidad de busqueda te permiti- 
ra comparar tu texto con una determi- 
nada cadena de caracteres a la que 
puedes llamar desde el editor. La bus- 
queda empieza en el punto en que si- 
tu es el marcador > por lo que tienes 
que asegurarte de que esta al princi- 
pio del texto que quieres corregir de 
forma que se explore toda la memoria. 

Si una determinada biisqueda fraca- 
sa — el caso mas frecuente es que ha- 
yas introducido algun error al teclcar 
la cadena que quieres buscar — la mar- 
ca se ira al final del texto. Si estas 
completamcntc seguro de la existencia 
de una determinada secuencia, inten- 
ta acortarla al introducirla. 

Cuando se completa una busqueda, 
el programa sigue en modo editor y 
puedes copiar facilmente la cadena de 



caracteres a buscar en el area de tex- 
tos. 



IIVIPRESION 



La rutina dc imprcsion te pcrmite 
sacar copias de impresora de tus fiche- 
ros de texto. Tiene algunas caracteris- 
ticas especiales entre las que se inclu- 
yen una subrutina de inicializacion 
para controlar el formato de impre- 
sion y otra subrutina para formar las 
letras. Si utilizas una impresora no es- 
tandar, naturalmente tienes que car- 
gar y activar un software de interface 
antes de usar la utilidad de impresion 
del editor de textos. 



FORMATEADO 



El poder introducu" y editar tu pro- 
pio texto te servira de muy poco si no 
puedes sacarlo en la forma en que tu 
quieras. Por ejemplo, pucde ser que 
quieras imprimir el encabezamiento 
de un documento en el centre dc una 
linea, y dejar toda una linea en bian- 
co por debajo. Esto resulta muy facil 
utilizando los comandos de formatea- 
do. Otro ejemplo muy corriente es el 
dc las cartas en que se coloca la direc- 
cion del firmantc al lado derecho y la 
direccion del destinatario al lado iz- 
quierdo. 

Los signos utilizados han de ir colo- 
cados al principio de la linea sobre la 
que actiian. El signo # posiciona la li- 
nea de texto al lado derecho de la pa- 
gina. Si no hay mas que una Ifnea, se 
colocara su cxtremo lo mas a la dere- 
cha posible. Si hay varias lincas jun- 
tas, cada una con un signo #, como 
ocurre por ejemplo en una direccion 
completa, el programa mide la longi- 
tud de la linea mas larga y hace que 
las restantes Imeas queden alineadas 
con esta. 



ORDENACION 



BUSQUEDA 



IMPRESION 



CREANDQ MODELOS 
DE CARTAS 
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Aplicqciones 



FORMATQS 
CENTRANDO 



TEXTOS 



JUSTIFICACION A IZQUIE RDA 
Y DERECHA 




HI signo & hacc que la siguiente li- 
nea de texto comience al principio de 
una nueva linea en la parte izquierda 
de la pagina. Tendrias que usar este 
signo al principio de cada linea de una 
direccion que quieras alinear por la iz- 
quierda. El signo de dolar, $, hace lo 
mismo pero dejando una linea en 
bianco por encima de cada linea. 

El asterisco,*, situa el texto en el 
centro de la Ifnea. Al utilizarlo ticnes 
que tener cuidado de que el texto no 
sea demasiado largo; tiene que ser 
mas corto que una linea normal. 

ESCRITURA DE MODELOS DE 
CARTAS 

Aparte de los coniandos normaies 
de formateado, existe otra interesante 
utilidad con la que podras crear mo- 
delos de cartas. Utiliza un comando 
consistente en un par de corchetes co- 
locados espalda con espalda, ][, que 
puedes coiocar casi en cualquier parte 
del texto. Se utilizan estos simbolos en 
lugar de palabras o bloques de texto 
que pueden cambiar de una carta a 
otra. De esta forma puedes empezar 
una carta con un Querido ][, por ejem- 
plo, y a continuacion introducir un 
nombre de persona diferente para 
cada letra. 

Los simbolos n^ se pueden coiocar 
en cualquier parte, excepto despues 
de un simbolo #. Esto se debe a que 
el programa necesita medir la longitud 
de la linea para situarla correctamen- 
te a la derecha, y dado que posiciona 
el texto antes de que tu Uenes el blo- 
que, es muy probable que al final que- 
de mal situado. 

El texto que sustituye a los simbo- 
los ][ se puede introducir directamen- 
tc desde el teclado a medida que va 
apareciendo cada simbolo, o puede 
leerse desde un fichero. 

EI nrimero maximo de caracteres 
por insercion es de 40 para el Commo- 
dore 64. Esto significa que el texto tie- 
ne que ser fraccionado en grupos de 
40 caracteres, y que debes introducir 
un simbolo ][ por cada unidad que se- 
rial e el principio de un bloque de tex- 
to. Ningun bloque de texto puede te- 
ner mas de 250 caracteres. 



Si la informacion variable sc intro- 
duce a partir de un fichero, el ordena- 
dor buscara el par ][, introduciendo di- 
cha informacion en los lugares apro- 
piados. 



para C-64 



2u0 print"cc0mm+6:insertar= 
ec0m|vh-6]"0w"!:c0mm+61edi 
ci0n=";em:print"cctrl+63 
"sw$"[ctrl+8j";:return 

4000 print'tshift+clr/home: 

CCRSR abaio]CCTRL+93" 
TAB(15)"LCTRL+4:SAVE 
DEL FICHER0LCTRL+8J" 

4005 IF TL=1 THENPRINTTAB(12) 
"CCRSR abajo^CCRSR 
abajoHllCRSR abajoJNO 
HAY NADA QUE GUARDAR": 
F0RZ=1T01500:NEXT: 
RETURN 

4010 INPUT"CCLR/HO!ViE:iLCRSR 

abajoKCRSR abajoDTCRSR 

abajoDECRSR abajoD 

NOMBRE DEL FICHERO"; F$: 

F$=LEFT$(F$,16) 

IF LEFT$CF$,1)<"A"0R 

LEFT$(F$,1)>"Z"THEN 

4010 

if ts=1 then 4110 
print"Cshift+clr/home: 

CCRSR abajoilECRSR dcha.3 
POSICIONAR LA CINTA Y 
DESPUESECRSR dcha.: 
CCRSR dcha.3PRESI0NA 
<RETURN>. CCRSR abajon 
CCRSR abajol" 

4050 GET A$:IF A$<>CHR$C13) 
THEN 4050 

4070 0PEN1,1,1,F$ 

4080 PRINT#1,CP:PRINT#1,TL 

4090 FOR K=0 TO TL:PRINT#1, 

CHR$(34)+TX$CK)+CHR$(34) 
:NEXT 

4100 CL0SE1: RETURN 

4110 PRINT"[SHIFT+CLR/H0ME3 
CCRSR abajoUCCRSR dcha-3 
VERIFICA QUE ESTA 
CONECTADA LA UNIDAD" 

4111 PRINT"Y QUE CONTENGA UN 
DISKETTE." 

4112 PRINTTABC2)"PRESI0NA 
<RETURM>" 

4120 GET A$:IF A$<>CHR$C13) 



4020 



4030 
4040 



INPUT 11 



y^***^ 








rfioN 



iiHfSERVCE 












DISTRIBUIDOR EXCLUSIVO PARA ESP AN A: ERBE SOFTWARE. C/. ST A. ENGRACIA, 17 
28010 MADRID, TEL. (91) 447 34 10- DELEGACION BARCELONA, AVDA. MISTRAL, N.° 10 - TEL. (93) 432 07 31 



Aplicaciones 





THEN 4120 


4670 


CL0SE1 :RETURN 


5160 


4130 


0PEN1,8^15/'S0:"+F$: 


5000 


print"Cshift+clr/home: 


5170 




CL0SE1:0PEN2,8,2,F$+", 




CCRSR abajo:CCTRL+9]" 


5180 




S,W" 




CHR$C142);TABC15);" 


5190 


4140 


PRINT#2,CP:PRINT#2,TL 




CCTRL+43SELECCION DE 




4150 


FOR K=0 TO TL:PRINT#2, 




E/SCCTRL+Sl" 


5200 




CHR$(34)+TX$CK)+ 


5005 


PRINT'TCRSR abajo: 






CHR$(34) 




CCRSR abajoJCCRSR dcha. 3 




41 60 


NEXT:CL0SE1:RETURN 




CARGAR DESDE CCTRL+93C 


5210 


4500 


print"cshift+clr/home:i 

CCRSR abajolCCTRL+93" 




CCTRL+03INTA CCTRL+93 
DCCTRL+0:iSC0? 






TABC14)"CCTRL+43CARGA 




CCRSR dcha.]"; 


5500 




DE UN FICHER0:CTRL+8:" 


5010 


GET B$:IF B$<>"C" AND 




4505 


IF TL=1 THEN4540 




BS<>"D" THEN 5010 




4510 


POKE 198,0:PRINT TAB 


5020 


PRINT B$:DL=0:DL=0:IF 






(10)"ECRSR abajolESTAS 




B$="D" THEN DL=1 


5510 




SEGURO CS/N)?" 


5030 


PRINT:PRINT"CCRSR dcha.] 




4520 


GET R$:IF R$<>"S" AND 
R$<>"N" THEN 4520 




CCRSR dcha.]ALMACENAS 
EN CCTRL+9]CCCTRL+D] 




4530 


IF R$="N" THEN RETURN 




INTA CCTRL+9]DCCTRL+03 




4535 


TL=1:G0T0 4500 




ISC07CCRSR dcha.]"; 




4540 


INPUT"CCLR/H0ME3 


5040 


GET B$:IF B$<>"C" AND 






CCRSR abajo] CCRSR aba jo] 


B$<>"D" THEN 5040 


5520 




CCRSR abajo^CCRSR abajo] 5050 


PRINT B$:TS=0:IF B$="D" 






NOMBRE DEL FICHERO";F$: 




THEN TS=1 






F$=LEFT$(F$,16) 


5060 


RETURN 




4550 


IF LEFT$(F$,1)<"A"0R 


5070 


CF=D:L=P[vi: PRINT LEFTS 






LEFT$(F$,1)>"2"THEN 




(GC$,23)"CADENA MUESTRA" 


5530 




4540 


5080 


INPUT T6$:IF T6$=""THEN 




4560 


IF [)L=1 THEN 4650 




5070 




4570 


print"Cshift+clr/home: 

[:CTRL+9: CCRSR abajoD 


5090 


PRINT GC$;SPC(25)" 
CCTRL+93CSHIFT+B] 




■ 


CCRSR dcha.KCRSR dcha. 


.1 


USQUEDA" 


5540 




CCRSR dcha.:CCTRL+43 


5100 


IF L=TL THEN CP=TL:PM= 






CCRSR abajoDCCRSR dcha. 


.3 


CP:PRINT"CSHIFT+ 






POSICIONAR LA CINTA Y 




CLR/H0ME3":G0SUB 2090: 






DESPUESCCRSR dcha, 3 




RETURN 






CCRSR dcha.KCRSR dcha 


.: 5110 


IF TX$CL)="" THEN L=L+1 


5540 




CCRSR dcha.nCCRSR dcha 


.J 


:G0T0 5100 






CCRSR dcha.:CCRSR dcha 


.] 5111 


FOR F=1 TO LEN(TX$(L)): 






CCRSR dcha-KCRSR dcha 


.] 


CF$=MID$(TX$CL),F,LEN 






CCRSR dcha.DCCRSR dcha 


.: 


(TG$)) 






PRESIONA <RETURN>. 


5112 


IF CF$=TG$ THEN CF=F 


5550 




CCTRL+8]" 


5118 


NEXT F 




4580 


GET R$:IF R$<>CHR$(13) 
THEN 4580 


5119 


IF CF=0 THEN L=L+1:G0T0 
5100 




4590 


0PEN1,1,0,F$ 


5120 


CP=L+1 :PM=CP: PRINT" 


5560 


4600 


INPUT#1,CP,TL 




CSHIFT+CLR/HOME]":GOSUB 




4610 


FOR K=0 TO TL:INPUT#1^ 




2090: RETURN 






TX$CK):NEXT 


5130 


IF SS>SE THEN TT=SS:SS= 




4620 


CL0SE1: RETURN 




SE:SE=TT 


5562 


4650 


0PEN2,8,2,F$+",S,R": 


5140 


SE=SE-1 






INPUT#2,TL,CP 


5150 


PRINT GC$;SPCC25)" 




4660 


FOR K=0 TO TL:INPUT#2, 




CCTRL+9] CSHIFT+S30RT 


5565 




TX$CK):NEXT 




EN CURSO " 


5570 



FOR I=SS TO SE-1 

K=I 

FOR J=I+1 TO SE 

IF TX$(J)<TX$CK) THEN 

K=J 

NEXT: IF lOK THEN TT$= 

TX$(K):TX$CK)=TX$CI): 

TX$(I)=TT$ 

NEXT:PRINT"CSHIFT+ 

CLR/HOME]":GOSUB 2090: 

RETURN 

PRINT"CSHIFT+CLR/HOME] 

CCRSR abajo]CCTRL+93" 

TABC13) ; "CC0m+*3 AJUSTE 

DE IMPRESORACCTRL+83" 

PRINT"CCRSR abajo] 

CCRSR abajo3CCRSR abajo3 

CCRSR abajo]": INPUT" 

CCRSR dcha.3ANCHURA MAX. 

DE LINEACCRSR dcha. 3"; 

MW:MW=INT(MW):IF MW<1 

THEN 5510 

INPUT"CCRSR abajo3 

CCRSR abajo3ANCHURA DE 

LINEACCRSR dcha.3";TW: 

TW=INTCTW):IF TW<1 OR 

TW>MW THEN 5520 

INPUT"CCRSR abajo] 

CCRSR dcha.3L0NGITUD DE 

PAGINACCRSR dcha.3";PL: 

PL=INTCPL):IF PL<1 THEN 

5530 

INPUr'CCRSR abajo3 

CCRSR dcha.3L0NGITUD 

DEL TEXTOCCRSR dcha-3"; 

TH:TH=INT<TH):IF TH>PL 

THEN 5530 

INPUT'TCRSR abajo3 

CCRSR dcha.3L0NGITUD 

DEL TEXTOCCRSR dcha. 3"; 

TH:TH=INTCTH):IF TH>PL 

THEN 5530 

GP=INTC(RW-TW)/2):LF$= 

"":FOR F=1 TO INTC(PL- 

TH)/2) :LF$=LF$+CHR$(13) 

:NEXT 

PRINT'CCRSR abajo3 

CCRSR dcha.3N0. DE DIS 

POSITIVO PARA LA 

IMPRESORA" 

PRINT"CCRSR dcha. 3 

CCTRL+934,5,6CCTRL+0] 

(6^S0L0 EL PLOTTER)?"; 

GET Z$;DN=^VALCZ$) 

IF DN<4 OR DN>6 THEN 
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PioMcaoones 



5565 
5580 PRINT DN:PRINT " 

LCRSR abajo^CCRSR abajoJ 

CCRSR dcha.DES CORRECTO 

CS/N)?" 
5600 IF G$="N" THEN 5500 
5610 RETURN 

Para utilizar la rutina de ordenacion 
SORT, tienes que pasar al modo de 
edicion (v. articulo anterior). Coloca 
la marca al principio o al final del gru~ 
po de lineas que quieres ordenar y a 
continuacion pulsa @. Desplaza el 
marcador hasta el otro extremo y pul- 
sa @ otra vez. Esto define el margen 
que abarca la dasificacion y la pone 
en march a. 

Durante el modo de edicion puedes 
Uamar a la utilidad de busqueda te- 
cleando S. En la zona de trabajo te 
aparecera un mensaje pidiendote que 
introduzcas la cadena de caracteres 
que quieres buscar. Teclea dicha ca- 
dena, y a continuacion pulsa RE- 
TURN para que empiece la busque- 
da. 

Cada vez que aparezca en eltexto la 
cadena de caracteres especificada, 
aparecera la correspondiente porcion 
del texto, con la marca situada inme- 
diatamcnte debajo de la Itnea que con- 
tiene la cadena buscada. 

Si quieres obtener una copia de tu 
texto en papel, selecciona P en el 
menu principal. El programa te pcdi- 
ra en primer lugar que selecciones de 
donde quieres sacar el texto a impri- 
mir : M para la memoria o F para fi- 
chero. Seguidamente te preguntara si 
deseas rellenar bloques variables de 
texto, como ocurre en los modelos de 
cartas, y si quieres hacerlo desde el te- 
clado o desde un fichero. Estas dos 
instrucciones solo se aplican en el caso 
de modelos de cartas. Seguidamente 
te preguntara si quieres tener una sa- 
lida de muestra; si tecleas Y data co- 
mienzo la rutina de inicializacion de la 
impresora. 

Esta rutina te pedira que introduz- 
cas la maxima anchura de columna 
(normalmente 80 caracteres), la an- 
chura efectiva de linea (con 60 te que- 
daran margenes de 10 caracteres), la 
longitud maxima de p agin a (tipica- 
mente 40) y finalmerite la longitud efi- 




caz de pagina requerida. A continua- 
cion el programa te pedira el numcro 
de dispositive de la impresora. Teclea 
4, 5 o 6 segun la impresora. Tienes una 
nueva oportunidad de corregir errores 
ya que al final te aparece un mensaje 
de «TODO ESTA BIEN?». Si respon- 
des N, el control volvera al principio 
de la rutina de entrada. 

EI programa te preguntara de nue- 
vo si deseas una salida de prueba. Si 
tecleas Y aparecera en la pantalla una 
version simulada de la copia de impre- 
sora. Cuando hagas formateado de 
textos, esto te permitira detectar erro- 
res y corregirlos. 

Despues de la muestra de salida vol- 
vera a aparecer el mismo mensaje de 
antes. Si ahora tecleas N dara comien- 
zo la impresion. Asegurate de que la 
impresora esta encendida y de que el 
papel esta debidamente colocado. 



En el caso de que hubieras seleccio- 
nado F para imprimir a partir de un fi- 
chero, el programa sc ira inmediata- 
mente a la rutina LOAD para buscar 
el correspondiente texto. 

En el formateado, el signo # man- 
tiene el texto dentro del margen dere- 
cho especificado. El signo $ salta a una 
nueva linea y ajusta su posicion con la 
linea anterior, siempre que dicha linea 
haya terminado en el margen derecho. 
El signo & salta a una nueva linea y 
evita que la impresora escriba una 
nueva linea sobre la misma linea im- 
presa del texto, incluso aunque haya 
suficiente espacio para ello. Por ulti- 
mo, el asterisco * sirve para centrar la 
linea del texto al que precede. 

Para hacer modelos de cartas, inser- 
ta un par de corchetes en oposicion 
][,en los puntos de la carta en que 
quieras introducir texto variable . 



INPUT 15 



PROYECTO 

Giono 



Observar los astros, situarlos en el 
firinamento, explicar su origen y sus 
movimientos^ descubrir su constitucion 
y sus particularidades, desentraiiar, en 
fin, el origen, la forma, los limites, la 
evolucion y todo enigma del Universo, 
todo esto es liacer astronomia. 

Los astronomos de tiemos remotos, 
que solo disponian de sus ojos para 
efectuar observaciones, quedarian 
mudos de asombro ante el complejo 
equipo que se usa en nuestros dias. El 
Universo revelado per esos instru- 
mentos se extiendc a traves de distan- 
cias en ei espacio y en el tiempo que 
desafian a toda imaginacion. 

Asf por ejemplo, la Tierra, sobre 
cuya superficie vivimos, es simple- 
mente un miembro de una familia de 
planetas que giran alrededor del Sol, 
mientras que el proplo Sol no es mas 
que una de tantas estrellas del enorme 
sistema estelar, la Via Lactea, que es 
nuestra galaxia. Asimismo, nuestra 
galaxia es tan solo un punto diminuto 
en medio de una multitud de galaxias 
que se extienden hasta los confines del 
Universo. 




^QUE HACE EL PROGRAMA? 

Este programa didactico, ademas 
de proporcionarnos algunos datos in- 
teresantes sobre los planetas que cons- 
tituyen el sistema solar, nos ensena va- 
ries truces dc gestion de memoria para 
sacar el maximo provecho dc las estu- 
pendas caracteristicas graficas del 
C-64. 

«Proyecto Giotto» comienza con 
una introduccion al nucleo del progra- 
ma, en el que por medio dc un como- 
do menu podemos elegir entre tres op- 
ciones: A, B 6 C. 

En la opcion A, los 9 planetas del 
sistema solar estan ordenados segun 
su proximidad al Sol y se les ha asig- 




nado un numcro diferenciador. Al es- 
coger esta opcion el programa nos pe- 
dira el niimero del planeta deseado y 
nos ofreccra informacion variada so- 
bre el mismo- Dicha informacion no 
solo se limita a darnos una tabla de da- 
tos, sino que tambien muestra diver- 
sas peculiaridades del astro. 

En estd. seccion, tanto para pasar de 
las «peculiaridades» a las tablas de da- 
tos como de nuevo al menu, basta con 
pulsar cualquier tecla. 

La opcion B nos permite obtener un 
estudio comparativo de todos los pla- 
netas con respecto a una de las 9 ca- 
racterfsticas siguientes: 

1.- Diametro ccuatorial 

2.- Achatamiento 

3.- Volumen 

4.- Masa 

5.- Densidad 

6.- Gravedad 

7.- Periodo de rotacion 

8.- Rcvolucion sidcrea y sinodica 

9.- Albedo 

En apartados como la masa y el vo- 
lumen se ha tornado el valor de la Tie- 
rra como unidad, y a partir de ahi se 
comparan los datos de los otros plane- 
tas, ya que asi, a una escala menor, re- 
sulta mucho mas facil entender las di- 
ferencias entre los astros que con ci- 
fras de muchos ceros. 



Por medio dc la opcion C del menu, 
una agradable sorpersa nos despedira. 



DESCRIPCION DE LAS RUTIN AS 

Las princtpalcs rutinas que compt)- 
nen cl programa son: 

90-730: Presentacion. 

750-820: Se lee informacion concer- 
niente a los planetas, almacenada en 
forma de DATAs. 

830-860: Se establece la clave de ac- 
ceso. 

870-980; Se pide la clave. 

990-1240: Menu. 

1250-1440: Opcion B. 

1450-1710: Hace subir el cohete de 
despedida y provoca el sonido de ex- 
plosion. 

1720-1750: Redefine los caractercs. 
Para trasladar la informacion de los 
caracteres dc la ROM a la RAM he 
utilizado una rutina en CM. situada 
entre las posiciones 49152-49209 (linea 
250), que sirve para trasladar bloques 
de memoria de un iugar a otro. Es lo 
que se llama «MOVE MEMORY». 

1780-1820: Se activan 8 sprites, se 
cstablccen sus color cs y punteros y se 
leen los datos de sus formas. 

1840-1860: Sittia el cohete. 

1870-2050: Imprime torre de lanza- 
miento y mensaje de despedida. 
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2060-2200; Rcloj. 

2210-5000: Opcion A. 

5010-5040: Sonido Reloj. 

5050-5120: Sonido de prcscntacion. 

5130-5170: Sonido de la opcion A. 
Dcpendicndo dc la tccla que se pulse 
el sonido sera diferente. 

5180-6030: DATAs. 

MAS DETALLES 

Uc cnlrc lodas cstas luiitKis, cico 
que las li'neas 10 y 30 merecen una ex- 
plicacion naas detallada. 

10 POKE 55,0:POKE 56,0:CLR 

30 POKE 56578,PEEK(56578) OR 
3: POKE 56576, (PEEK(56576) AND 
252) OR liPOKE 53272,4;POKE 
648,128 

El programa utiliza bastantes carac- 
teres redefinidos asi como sprites. 
Cuando utilizamos jtiegos de caracte- 
res personalizados y otras caracteristi- 
cas graficas del C-64, facilmente nos 
pueden apareccr problemas con la me- 
moria del ordenador. 

Hay que tener en cuenta que el 
C-64 ticnc dos sistemas diferentes que 
comparten las misma zona de memo- 
ria: el chip de video (VIC II). que se 
encarga de proporcionar todos los mo- 
dos graficos, y el BASIC. Sin embar- 
go, a pesar dc que el 64 posee 65536 
(o 64K) posiciones de memoria dircc- 
cionables, el VIC II solo es capaz de 
acceder simultaneamente a 16K- es 
decir, la cuarta parte. Si dividimos los 
64K en cuatro bloques de 16K, podre- 
mos dccirlc al VIC II sobre cual de los 
cuatro bloques (o bancos) va a traba- 
jar. 

Normalmente el VIC II accede a! 
primer banco (posiciones 0-16384), 
que OS una zona bastante ocupada. El 
unico cspacio libre en este banco 
(aparte del buffer del cassette 828-1019 
y las posiciones lOA-161 , que pueden 
scr utilizadas, por ejemplo, para colo- 
car los datos de nuestros sprites) se en- 
cuentra entre las posiciones 
2048-16384. Este lugar es tambien uti- 
lizado por cl BASIC. 

De todo esto se deduce que no que- 
da suficiente espacio disponible para 
todos los graficos, ya que la mayor 
parte de la memoria en dicho banco 
sera acaparada por el BASIC. 



jPero no lancemos la toalla! Tene- 
mos dos soluciones: la primera, indi- 
carle al VIC II que cambie de banco 
de memoria o bien, la segunda solu- 
cion, recortar el espacio dedicado al 
BASIC. 

Si optamos por la segunda solucion, 
lo que haremos sera retrasar el princi- 
pio del area de los programas BASIC. 

Cuando encedemos el C-64 encon- 
tramos los numeros 1 y 8 en las posi- 
ciones 43-44 y los numeros y 160 en 
las posiciones 55-56. Estos valores ha- 
cen referencia a las direcciones de me- 
moria; para pasarlos a la notacion de- 
cimal, multiplicamos cl scgundo nu- 
mero por 256 y le sumamos el prime- 
ro (8 por 253 son 2048, mas 1 nos da 
2049). El puntero en las direcciones 
43-44 nos sefiala el inicio del BASIC. 
Los punteros de las posiciones 55-56 
apuntan hacia la direccion 40960, un 
byte por encima de la posicion mas 
alta utilizable por un programa BA- 
SIC. 

Pucs bicn, cambiando los punteros 
de las direcciones 43-44 modificare- 
mos la direccion dc comienzo del BA- 
SIC. 

Este metodo es mas sencillo que in- 
dicarle al VIC II que cambie de banco 
de memoria, pero tiene sus inconvc- 
nientes; tiene que haber un programa 
de inicializacion o si no, tenemos que 
teclear en modo dirccto, y antes de 
cargar el programa, el cambio de pun- 
teros ya que no poderaos introducir di- 
chos comandos dentro del programa. 
{A que se debe esto? 

La rcspucsta es bien sencilla: al car- 
gar el progrma las primeras lineas del 
mismo se han situado al principio del 
area reservada a] BASIC. Si ahora 
dentro del programa eliminamos ese 
trozo de memoria, destruiremos cl 
programa. 

Estos son los inconvenientes de re- 
cortar cl cspacio dedicado al BASIC. 

Ahora bien, que pasaria si le indi- 
camos al VIC II que cambie de banco 
dc memoria. Veamoslo. Disponemos 
de 3 bancos dc video mas, aparte del 
banco 0, el banco 1, ei banco 2 y el 
banco 3. En el banco 1 y en el banco 
3 cl jucgo de caracteres del 64 no es 
accesible por el VIC II. Luego toma- 
mos el banco 2. 



Una vcz que sabemos cl banco de 
video con el que vamos a trabajar, el 
2 (posiciones 32768-49152), le tene- 
mos que indicar al BASIC donde ter- 
mina su espacio libre. Para ello modi- 
ficamos los punteros de las direccio- 
nes 55-56 y los hacemos apuntar a la 
posicion 32768, que es el inicio del 
banco 2: 

POKE 55,0: POKE 56,128:CLR 

Acabamos de modificar el limite su- 
perior del BASIC. A continuacion de- 
bemos indicarle al VIC II que trabaje 
con el banco dc video recien elegido: 
el 2. 

POKE 56578, PEEK(56578) OR 3, 
para poder cambiar de banco. 

POKE 56576, (PEEK (56576) AND 
252)OR 1, para acceder al banco 2. 

Ahora cl VIC II picnsa que los ca- 
racteres en ROM estan en las direc- 
ciones 36864-40959. 

Ya tenemos espacio suficiente para 
nuestros graficos personalizados y 
sprites (a partir de la direccion 32768 
hasta la 36863 se encuentran 4K libres, 
y desde la direccion 40960 hasta la 
49151 otros 8K), sin preocuparnos de 
la longitud de nuestros programas 
BASIC, para lo cual disponemos de 
30K. 

Pero aun no hemos terminado. 
Tambien debemos desplazar la memo- 
ria de pantalla (IK), que es una zona 
de RAM (memoria de lectura y escri- 
tura) donde se almacena la informa- 
cion de lo que se esta visualizando en 
la pantalla. Su posicion puede ser 
carabiada facilmente con un POKE 
del registro 53272. Este registro fija 
tanto las posiciones de la memoria de 
pantalla como las del juego de carac- 
teres. Mediante: 

POKE 53272,4 

la nueva posicion de la memoria de 
pantalla sera 32768-33791 y la del jue- 
go de caracteres 36864-40954. Hay 
que recordar que los punteros de los 
sprites forman parte de la memoria de 
pantalla y se trasladan con eila. Por lo 
tanto los punteros se encuentran aho- 
ra en las posiciones 33784-33791. 

Finalmente, el BASIC tiene que ser 
informado tambien de la posicion de 
la memoria de pantalla: 

POKE 648,128 ' • 

El programa sitiia las posiciones dc 
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las definiciones de los sprites (no con- 
fundir con los punteros) entre las po- 
siciones 33792-34302, y la de los gra- 
ficos redefinidos entre las posiciones 
34816-36864. 



Una vez explicadas, mas a fondo, 
las lineas 10 y 30, y para finalizar el 
presente articulo, no me queda mas 
que aconsejar que durante la ejecu- 
cion del programa no se pulsen simul- 



taneamente las teclas RUN/STOP y 
RESTORE ya que si no, el ordcna- 
dor se bloquearia, 

Luis Miguel Garay Gallastegui 



1 REM**C3SIGNIFICA 'ESPACIO' 

10 POKE55,0:POKE56,128:CLR 

20 PRINT'TSHIFT+CLR/HOMEII" 

30 P0KE56578,PEEK(56578)0R3:P0KE56576,CPEEK(56576)AND252)0R1:P0KE53272,4: 

P0KE648,128 
40 PRINT'TSHIFT+CLR/HOME^CCTRL+lirCRSR abajol" 
50 DIFiT$C9),V$(9),ME$(9),VE$C9),TI$(9),MA$(9),JU$C9)^SA$C9) 

60 DIMUR$(9)^NE$(9),PL$(9),UW$C9),MN$(11),VN$C8),NN$(9),JJ$(10),SS$(8),UU$C10) 
70 DIMKK$(10),PP$C8),TT$(14),HH$(13),VC$(20) 
80 F2=4:PR=33792 
90 POKE53280,9:P0KE53281 J2 
100 PRINT'TCRSR dcha.3CCRSR dcha.DCCRSR dcha.DCCRSR dcha.lCCRSR dcha.: 

CCRSR dcha.IICCRSR dcha-II CCRSR dcha.KCRSR dcha.3CCTRL+9:n CD C] HH C] C] C] CJ 

[] G [D u c] C3 c: u n u u g g c ctrl+o: " 

110 PRINT"CCTRL+2:i:CRSR dcha-DCCRSR dcha.DCCRSR dcha.JCCRSR dcha.DHCRSR dcha.D 
CCRSR dcha.DCCRSR dcha.DCCRSR dcha.3CCTRL+9JCSHIFT+*] CSHIFT+*: CSHIFT+*: 

cshift+*:!cshift+*icshift+*:[shift+*:i:shift+*:lshift+*]cshift+*:cshift+*3 

cshift+*:cshift+*ncshift+*]cshift+*:nshift+*] 

cshift+*] [:shift+*3 cshift+*:! cshift+*j lshift+*] i:shift+*] [shift+*j [;shift+*3 " 

120 PRINT'TCRSR dcha.ZICCRSR dcha.DCCRSR dcha.JCCRSR dcha.DCCRSR dcha.l 

CCRSR dcha.DCCRSR dcha.irCRSR dcha.J t:CTRL+9] [COMM+A] :SHIFT+*] CSHIFT+I] 
CCOM?^+A:iCSHIFT+*KSHIFT+l3CCOMn+A:[:SHIFT+*3CCOMM+S3i:COnM+A:C][C0MM+s: 
[:COMM+A3i:SHIFT+*::SHIFT+*KCOMM+A3CSHIFT+*:i:SHIFT+*3i:C0MM+A3i:SHIFT+*:] 
CCOMM+S][:COm+A:CSHIFT+*]CCOMM+s:]" 

130 PRINT'TCRSR dcha.JCCRSR dcha.lCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 

LCRSR dcha.^CCRSR dcha.^CCRSR dcha.3i:CTRL+93nSHIFT+B] rSHIFT+*] CCOMM+K] 
[SHIFT+BJ CSHIFT+*: CCOMM+KD [SHIFT+B] [] CSHIFT+B] CCOMM+ZJ tCOMM+Rl CCOMM+X] 
CCOMM+Q3I:SHIFT+*3GCSHIFT+B3G[DG[SHIFT+b:[]CSHIFT+B]GCSHIFT+B]" 

140 PRINT'TCRSR dcha.KCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.] 
LCRSR dcha.lCCRSR dcha.:CCRSR dcha.: CCTRL+93 CSHIFT+BK] CHCSHIFT+b: [: 
CSHIFT+m LCOMM+Z: [SHIFT+*: CC0MM+X3G LSHIFT+B] G CCOMM+Z] CSHIFT+*: [SHIFT4-*J 
CCOM|vt+Z] CSHIFT+*:! i:SHIFT+*] G CSHIFT+B3 [] CCOMM+Z: CSHIFT+*] CCOMM+x:] " 

150 PRINT'TCRSR dcha.KCRSR dcha.3LCRSR dcha.JCCRSR dcha.KCRSR dcha.D 

CCRSR dcha.:CCRSR dcha.IICCRSR dcha.:CCTRL+93CSHIFT+*:CSHIFT+*KSHIFT+*: 
CSHIFT+*3CSHIFT+*:CSHIFT+*3CSHIFT+*KSHIFT+*]CSHIFT+*]LSHIFT+*KSHIFT+*1 
CSHIFT+*: CSHIFT+*:i CSHIFT+*: [SHIFT+*3 CSHIFT+*: CSHIFT+*: CSHIFT+*] CSHIFT+*] 
CSHIFT+*KSHIFT+*KSHIFT+*1[SHIFT+*:CSHIFT+*]" 

160 P1?INT"CCRSR dcha.lCCRSR dcha.^CCRSR dcha.JCCRSR dcha.JCCRSR dcha. J 

CCRSR dcha.JCCRSR dcha.JCCRSR dcha.KCRSR dcha.KCTRL+1]CCTRL+93C] C: CKK3 

c] c: G [] C3 G L3 G c: c: n u 11 u u c: c: " 

170 PRINT"CCRSR abajoDCCRSR dcha.DCCRSR dcha.]LCRSR dcha.DCCRSR dcha. 3 

CCRSR dcha.KCRSR dcha.DCCRSR dcha.3CCRSR dcha.DCCRSR dcha.3CCRSR dcha.l 
CCTRL+83CCOMM+r:CSHIFT+*1CSHIFT+*3CSHIFT+*JCSHIFT+I3CSHIFT+*3CCOMM+R3 

cshift+ukshift+*kshift+*]cshift+ncshift+ujcc0mm+r:cshift+lkshift+u3 
ccomm+r:cshift+i3Cshift+u3Cshift+*i:shift+*:cshift+id" 

180 PRINT'TCRSR dcha.3CCRSR dcha.3CCRSR dcha.DCCRSR dcha.HCCRSR dcha. 3 

CCRSR dcha.nCCRSR dcha.HCCRSR dcha.lCCRSR dcha.3CCTRL+13CCOMM+R3CCTRL+83 
CSHIFT+B:CCTRL+13CSHIFT+*3CSHIFT+*3CSHIFT+l3CCTRL+83CCOMM+E3rCTRL+13 
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:C0MM+R:]CCTRL+83i:SHIFT+Bi:SHIFT+BJLCTRL+i:E:SHIFT+*JnSHIFT+i:!i:CTRL+8: 

cshift+b]cctrl+1xc0mm4rlcctrl+83cshift+blcctrl+i:cshift+uncc0mm+r3i:ctrl+83 
[shift+b][:ctrl+i:cshift+u3cctrl+8:lshift+bdcctrl+i:cshift+*:cshift+i: 

nCTRL+SilCSHIFT+Bl" 
190 PRINT'TCRSR dcha.KCRSR dcha.lCCRSR dcha.JCCRSR dcha.3LCRSR dcha.: 

CCRSR dcha.DHCRSR dcha-HCCRSR dcha.DCCRSR dchaOCCTRL+ID CSHIFT+B: :CTRL+83 

cshift+b3 11 ccomm+q] cshift+*: [shift+i: cctrl+1 1 lshift+b] i:ctrl+8: cshift+b] 
cshift+b: :: cctrl+i] cshift+bd i:ctrl+8] cshift+b:) cctrl+i ] cshift+b: :ctrl+83 

CSHIFT+B] a nCTRL+1 ] CSHIFT+BD [CTRL+8] [SHIFT+BJ CCTRL+1] :sHIFT+BKCTRL+83 
CSHIFT+B3 n CCTRL+1 1 CSHIFT+BD CCTRL+S: [SHIFT+B3 " 

200 PRINT'TCRSR dcha.lCCRSR dcha.DCCRSR dcha.:i:CRSR dcha.DCCRSR dcha.3 

CCRSR dcha.DCCRSR dcha.DCCRSR dcha.lCCRSR dcha.] CCTRL+13CSHIFT+B3CCTRL+83 
nSHIFT+B:CCTRL+13:C0nM+Q:]:SHIFT+*3CSHIFT+i:nCTRL+8Dt:SHIFT+B:]CCTRL+i: 
CSHIFT+B] nCTRL+81 CSHIFT+BJ CSHIFT+B] [] CCTRL+1 ] CSHIFT+B] CCTRL+8] CSHIFT+B] 
CCTRL+1: CSHIFT+B] CCTRL+8] CSHIFT+B] CJCCTRL+1] CSHIFT+B] CCTRL+8] CSHIFT+B] 
CCTRL+1] CSHIFT+B] CCTRL+8] CSHIFT+B] C] CCTRL+1] CSHIFT+B] CCTRL+8] CSHIFT+B]" 

210 PRINT'TCRSR dcha.]CCRSR dcha.DCCRSR dcha.]CCRSR dcha.DCCRSR dcha.] 

CCRSR dcha.]CCRSR dcha.]CCRSR dcha,]CCRSR dcha.] CCTRL+1]CSHIFT+B]CCTRL+8] 
CSHIFT+J]CSHIFT+*]CSHIFT+*]CSHIFT+*]CCOMM+K]CSHIFT+*]CCOMM+E]CSHIFT+J] 
CSHIFT+*]CSHIFT+*]CCOm+K] CCTRL+1] CSHIFT+B] CCTRL+8] CCOMM+E]C] CCTRL+1] 
CSHIFT+B] CCTRL+8] CCOMFI+E] CCTRL+1] CSHIFT+B] CCTRL+8] CSHIFT+J] CSHIFT+*] 
CSHIFT+*]CCOm+K]" 

220 PRINT'TCRSR dcha,3CCRSR dcha-]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.] 

CCRSR dcha,]CCRSR dcha.]CCRSR dcha.]CCRSR dcha .] CCTRL+1]CSHIFT+J] CSHIFT+*] 
CSHIFT+*]CSHIFT+*]CCOMM+K]CSHIFT+*]CCOMM+E]CSHIFT+J]CSHIFT+*]CSHIFT+*] 
CCOm+K] C] CCOMM+E] C3 C] CC0MP4+E] C] CSHIFT+J ] CSHIFT+*3 CSHIFT+*] CCOMM+K] " 

230 PRINT'TCRSR abajo]CCRSR abajo]CCRSR abajo]CCRSR dcha.]CCRSR dcha.] 

CCRSR dcha.]CCRSR dcha.]CCRSR dcha,]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.] 
CCRSR dcha.]PORC]LUISC]MIGUELC]GARAY" 

240 PRINT"CCTRL+4] CCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha-]CCRSR dcha.] 
CCRSR dcha-]CCRSR dcha.]CCRSR dcha.lCCRSR dcha.]CCOMM+Y]CCOMM+Y] CCOMM+Y] 
CCOMM+Y] CCOMM+Y] CCOMM+ Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] 
CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Yl CCOMM+YJ CCOMM+Y] CCOMM+Y] " 

250 F0RX=49152T049209:READMC:P0KEX,MC:P2=PZ+MC:NEXT:IFPZ<>6864THENEND 

260 PRINT"CCTRL+2] CCRSR abajo]CCRSR dcha.DCCRSR dcha.]CCRSR dcha-DCCRSR dcha-] 
CCRSR dcha-]CCRSR dcha.]CCRSR dcha-]CCRSR dcha.]CCRSR dcha.JCCRSR dcha-] 
CCRSR dcha.DCCRSR dcha.]PULSAC]UNAC]TECLA" 

270 P0KE198,0 

280 GETA$:IFA$=""THEN280 

290 GOSUB5050 

300 PRINT'TSHIFT+CLR/HOME]CCTRL+2]":P0KE53280,0:POKE53281,O 

310 FORP=1T0100:A=INT(RNDC1)*960)+1:POKE32768+A,46:NEXT 

320 PRINT"nCLR/HOME]CCRSR abajo]CCRSR dcha.]CCRSR dcha,]CCRSR dcha.] 

CCRSR dcha -]CCTRL+63ECCTRL+4]LC]H0MBREC]HAC]C0NTEMPLAD0C]ELC]CIEL0": PRINT 
"CCRSR abajo]CCRSR dcha.JCCRSR dcha.]CCRSR dcha.]CCRSR dcha.DCCRSR dcha.] 
CCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.] 
CCRSR dcha.]CCRSR dcha.]CCRSR dcha.JCCRSR dcha.]CSHIFT+R]" 

330 PRINT"CCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha-] 
CCRSR dcha.]CCRSR dcha.]CCRSR dcha.] YC]HAC]S0NADOC]CONC]L0SC]ASTR0S" 

340 PRINT'TCRSR abajo]CCRSR abajo]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.] 

CCRSR dcha.]CCRSR dcha.DCCRSR dcha.]CCRSR dcha.]CCRSR dcha. JCCRSR dcha.] 
CCRSR dcha.]CCR$R dcha.]CCRSR dcha.]CCRSR dcha-] CCTRL+9]DESDECCTRL+0]C] 
CCTRL+9]SIEMPRECCTRL+0] ." 
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350 PRINT'TCRSR abajo3CCRSR abajolCCRSR dcha.DCCRSR dcha-lCCRSR dcha.3 

CCRSR dcha.:i:CRSR dcha.3CCRSR dcha.lCCRSR dcha.DCCRSR dcha.KCRSR dcha.J 
CCRSR dcha.DCCRSR dcha.]CCTRL+63ECCTRL+43NC]PLENODSIGLO[]XX," 

360 PRINT"[CRSR abajo3[CRSR abajolCCRSR dcha.KCRSR dcha.DCCRSR dcha,3 

CCRSR dcha.nCCRSR dcha-3CCRSR dcha.lCCRSR dcha.DCCRSR dcha.lCCRSR dcha.lEL 
CnCOSMOSCDSIGUEGSIENDO" 

370 PRINT"LCRSR abajolCCRSR abajoKCRSR dcha.lCCRSR dcha.lCCRSR dcha.lOBJETOlIl 
DECIESTUDIOCIYCIFUENTECIENORME" 

380 PRINT'TCRSR abajolLCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lDEClINTERES." 

390 POKE198,0 

400 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.l CCTRL+81CCTRL+91PULSAC1UNAC1TECLA" 

410 6ETA$:IFA$=""THEN410 

420 G0SUB5050 

430 PRINT'TSHIFT+CLR/HOMElCCTRL+21" 

440 FORP=1T0100:A=INT(RND(1)*96a)+1:POKE32768+A,46:NEXT 

450 PRINT'TCTRL+4inCLR/H0MEl CCRSR abajolCCRSR abajolCCRSR abajolCCRSR abajol 
CCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCONClUNClPOCOClDE" 

460 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
VOLUNTADC1EC1IMA6INACI0N" 

470 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha .lESTEClPROGRAMAClTECl 
PERMITIRACIABRIRTECIA" 

480 PRINT"CCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCTRL+9lLACl 
INFINITUDClDELClESPACIOCCTRL+01." 

490 PRINT'TCTRL+81CCTRL+91 CCRSR abajolCCRSR abajolCCRSR abajolCCRSR abajol 
CCRSR abajolCCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR izq.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
PULSACIUNACITECLA" 

500 P0KE198,0 

510 GETA$:IFA$=""THEN510 

520 GOSUB5050 

.530 PRINrTCTRL+21 CCRSR abajolCCRSR abajolCCRSR abajolCCRSR abajolCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.l AC1CONTINUACION,C3ENTRARASC1ENC1CONTACTO" 

540 PRINT'TCRSR abajolCCRSR dcha.lCONClELClCENTROClDEClINVESTIGACIONClESPACIAL" 

550 PRINT'TCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha-lENClBOSTON." 

560 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lPARAClELLO,ClELClPROGRAMAClHALLARA" 

570 PRINT"CCRSR abajolCCRSR dcha-lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lLA 
ClCLAVEClDEClACCESOClAL":PRINrTCRSR abajolCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lBANCOClDEClDATOS," 

580 PRINT"CCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
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[CRSR dcha.nCCRSR dcha.KCRSR dcha-HCCRSR dcha.KCRSR dchaJCCRSR dcha.DY 
nTEnLAnCOMUNICARA":PRINT"i:CRSR abajoDCCRSR dcha.DHCRSR dcha.3 
[CRSR dcha.nCCRSR dcha.lLCRSR dcha.JCCRSR dcha-^PARACDQUEaPUEDASC] 
DISPONERCDDE" 

590 PRINT'TCRSR abajoJCCRSR dcha.3[CRSR dcha.DLCRSR dcha.IlCCRSR dcha.3 

CCRSR dcha.KCRSR dcha.DCCRSR dcha.lCCRSR dcha.DCCRSR dcha.DCCRSR dcha.3 
DICHAnDlNFORMACION.":PRINT'TCRSR abajoDCCRSR abajoJCCTRL+Sr' 

600 FORR=1T040:PRINT"I:CTRL+9:CSHIFT+*]CCTRL+0:";:FORE=1T0150:NEXT:NEXT 

610 G0SUB5050 

620 PRINT":SHIFT+CLR/HOME][:CTRL+23LCRSR abajoJCCRSR abajo3[SHIFT+U3CSHIFT+*3 
CSHIFT+*DCSHIFT+*:CSHIFT+*3CSHIFT+*XSHIFT+*KSHIFT+*:[:SHIFT+*:rSHIFT+*J 
:SHIFT+*3:SHIFT+*l[SHIFT+*n!:SHIFT+*:CSHIFT+*:i:SHIFT+*lCSHIFT+*:CSHIFT+*a 
CSHIFT+*3i:SHIFT+*3[:SHIFT+*:nSHIFT+*]i:SHIFT+*][:SHIFT+*n[SHIFT+*:iCSHIFT+*: 
i:SHIFT+*::SHIFT+*:!CSHIFT+*nLSHIFT+*3nSHIFT+*3CSHIFT+*3[:SHIFT+*:CSHIFT+*: 
CSHIFT+*aCSHIFT+*3CSHIFT+*:CSHIFT+*lCSHIFT+*Ji:SHIFT+i:"; 

630 PRINT"i:SHIFT+CLR/HOME3t:CTRL+2:LCRSR abajoJCCRSR abajo3CSHIFT+U:i:SHIFT+*3 
CSHIFT+*aCSHIFT+*3CSHIFT+*:CSHIFT+*:i:SHIFT+*3[:SHIFT+*:CSHIFT+*XSHIFT+*3 
[:SHIFT+*:!CSHIFT+*:CSHIFT+*3i:SHIFT+*:[SHIFT+*3nSHIFT+*]CSHIFT+*3:SHIFT+*l 
[:SHIFT+*3CSHIFT+*:]CSHIFT+*:]!:SHIFT+*irSHIFT+*3!:SHIFT+*KSHIFT+*:i:SHIFT+*3 
CSHIFT+*3i:SHIFT+*:[:SHIFT+*:[:SHIFT+*KSHIFT+*3CSHIFT+*]:SHIFT+*][:SHIFT+*3 
i:SHIFT+*::SHIFT+*nCSHIFTH-*:i:SHIFT+*3:SHIFT+*]CSHIFT+i:"; 

640 PRINT'TSHIFT+B] t:CTRL+9J FECHACCTRL+O: :1 986 CD 11 LD O LI L2 U D LI LI LI LI C: Zl 11 11 

CI G D a n a g li g g c: g cshift+b] "; 

650 PRINT":SHIFT+B:iGDGGt:JG[3GGG[D[]GC:G[:GGGGGGi:DGL]GGC:c: 

LI a c: G G c: li li g csh i ft+b: "; 

660 PRINT'TSHIFT+B:i:CTRL+93LUGARi:CTRL+03:CENtROGDEC:iNVESTIGACIONGESPACIAL 
CSHIFT+B3"; 

670 print"cshift+b: g cj g g g g c] c: c: c: g g li g g g li li g li l: g lj g g g g g g 
ggc:c:[:gg[:g!:shift+b:"; 

680 PRINT"CSHIFT+B] CD G LI [] G G CD LI LI G G G 11 G G CH (BOSTON) G C] G G C] G LI G G 
GGGGC:CSHIFT+b:"; 

690 print'Tshift+jicshift+*:!i:shift+*:i:shift+*:cshift+*]:shift+*icshift+*3 
[:shift+*:cshift+*3cshift+*3[:shift+*xshift+*:rshift+*kshift+*:cshlft+*:i 
i:shift+*:cshift+*:cshift+*n:shift+*:cshift+*3cshift+*]:shift+*3lshift+*n 
cshift+*3cshift+*]:shift+*:cshift+*:cshift+*]cshift+*a:shift+*:i:shift+*n 
[:shift+*3fshift+*3lshift+*3:shift+*li:shift+*:icshift+*:cshift+*::shift+*l 

CCOMM+K]"; 

700 PRINT'TCRSR abajoDLCRSR abajoKCRSR abajo^CCRSR abajo3i:CRSR abajo: 

CCRSR dcha-DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.aCCRSR dcha-] 
CCRSR dcha.:CCRSR dcha.DBUSCANDGGCLAVEGDEGACCESO" 

710 PRINT"LCRSR abajoJCCRSR dcha.nCCRSR dcha,3FCRSR dcha.DCCRSR dcha.] 

CCRSR dcha-DCCRSR dcha-JCCRSR dcha-HCCRSR dcha.DCCRSR dcha.DCCRSR dcha.3 
CCRSR dcha.DCCRSR dcha.DCCRSR dcha.:XCRSR dcha.KCRSR dcha.DCCRSR dcha-Z 
CCRSR dcha.KCRSR dcha.^CCRSR dcha.DAL" 

720 PRINT'TCOHM+UCCRSR abajolCCRSR dcha.KCRSR dcha.^CCRSR dcha.JCCRSR dcha.3 
CCRSR dcha.3CCRSR dcha.JCCRSR dcha.KCRSR dcha.3CCRSR dcha.HCCRSR dcha.D 
CCRSR dcha.KCRSR dcha.DCCRSR dcha.3BANCOC]";"CCOMM+63DEC:";"CCOMM+i:DATOS" 

730 PRINT"CCTRL+23 CCRSR dcha.DCCRSR dcha.DCCRSR dcha.3CCRSR dcha.DCCRSR dcha.: 
CCRSR dcha-3CCRSR dcha.3CCRSR dcha.DCCRSR dcha.3CCRSR dcha.JCCRSR dcha.3 
CCRSR dcha.3 CCRSR dcha.3 CSHIFT+E3 CSHIFT+E3CSHIFT+E3CSHIFT+E3 CSHIFT+E3 
CSHIFT+E3CSHIFT+E3LSHIFT+E3CSHIFT+E3CSHIFT+E3CSHIFT+E3CSHIFT+E3LSHIFT+E3 
CSHIFT+E3" 

740 60T01720 
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partkipa 



750 F0RF=n09:READT$(F),U$(F),ME$CF),VE$CF),TI$CF),MA$CF),JU$(F),SA$(F)^UR$CF) 

760 READNE$(F),PL$(F),WW$(F),NN$(F):NEXT 

770 F0RF=1T011:READMN$(F):NEXT 

780 F0RF=1T08:READVN$(F),SS$(F),PP$(F):NEXT 

790 FORF=1T010:READJJ$(F),UU$(F),KK$CF):NEXT 

800 F0RF=1T01A:READTT$(F):NEXT 

810 F0RF=1T013:READHH$(F):NEXT 

820 F0RF=1T020:READVC$(F):NEXT 

830 BL=INT(25*RND(0))+5 

840 BF=BL+60:BT=IMTC40*RND(1))+1:B5=INTCRND(1)*60)+1:JK=BF+BT 

850 BK$=STR$CBL) :NE$=STR$CJK) :BB$=STR$(B5) :BJ$=CHR$(BF) 

860 B$=BJ$+NE$+BK$+BB$ 

870 PRINT":SHIFT+CLR/H0ME:i:cTRL+93LCTRL+7:CCLR/H0MEKCRSR abajoKCRSR abajo: 
CCRSR abajoDCCRSR dcha.DCCRSR dcha.DCCRSR dcha-DTCRSR dcha.DCCRSR dcha.3 
CCRSR dcha.DCCRSR dcha.lCCRSR dcha.DCCRSR dcha.KCRSR dcha.lCCRSR dcha-D 
CLAVECCTRL+O: . . . : CCTRL+2: ";B$ 

880 PRINT"[CRSR abajolCCRSR abajo3i:CRSR aba jo] CCOTO+AJCCOMM+R] :C0MM+rKC0MM+r: 
CCOMM+RJ CCOFIM+RKCOMM+R] CCOMM+R] CCOMM+Rl CCOMM+R] [COMM+R] CCOMM+RJ i:C0M|V|+R3 
CCOMM+R] CCOMM+R: CCOMM+R] CCOMM+RKCOMM+r: CCOMM+R] [COMM+R] CCOMM+r: i:C0P4M+R] 
• ■ CC0MM+RJCC0MM+R]CCOMM+R]CC0MM+R:CC0MM+R:CCO|V|M+R:CC0MM+R]CC0M[V|+RKC0Mn+RD 

:comm+r3 ccoMM+RKcoMM+R] ccomm+r] ccomm+r: ccohm+r] ncoMR+Ri ccoriM+R] [comm+s: "; 

890 PRINT'TCOMM+Z: CCOMM+E] CCOMM+E] CCOMM+EH CCOMM+E: CCOKM+E] CCOMIVI+E] CCOMM+ED 
[C0MM+E3 [COMM+E] CC0MM+E3 CCOMM+E] rC0MH+E3 CCOMM+e: [COMM+E] CCOm+E: CCOMM+El 

ccomm+e: ccomm+e] ccomm+e] ccomm+e: ccoMn+E: ccom+En ccomm+e: ccom+E] ccomm+e: 
ccoMM+E] [:coMM+E3 ccoMM+ED ccomm+e: CCOMM+E] [COMM+EI] CCOM!V!+e: lcoi^m+ej ccomm+eh 
ccomm+e] ncoMM+E] ccomm+e: ccomm+e: ccom+x: "; 

900 PRIM'TCRSR abajo3CCRSR abajolUCRSR dcha.JtCRSR dcha.3[::CKCTRL+9JCCTRL+43 
CENTR0GDEr:iNVESTI6ACI0N[3ESPACIAL" 

910 PRINT'TCRSR abajoJCCRSR dcha.DCCRSR dcha.KCRSR dcha.DECRSR dcha.H 

CCRSR dcha.KCRSR dcha.HCCRSR dcha.DCCRSR dcha-DCCRSR dcha.lCCRSR dcha.D 
CCRSR dcha.nCCRSR dcha.JCCRSR dcha.lCCRSR dcha.DCCRSR dcha.DCCRSR dcha.3 
(BOSTON) ":PRINT"CCTRL+2KCRSR abajo^CCRSR abajo^CCRSR abajoJ" 

920 POKE198,0 

930 INPUT"CCRSR dcha.DCCRSR dcha.]CCRSR dcha.aCCRSR dcha.3lNTRODUCEC]TUC3 
NOMBREC]";N$ 

940 IFLEN(N$)>12THEN60T0870:REM PRINT'TCRSR arribalCCRSR 

arribaKCRSR arriba3":GOT0100 

950 PRINT'TCRSR abajoD" 

960 INPUT"CCRSR dcha.JCCRSR dcha.DCCRSR dcha.3CCRSR dcha-]INTRODUCEC3LAC3 
CLAVEC1";L$ 

970 IFL$<>B$THENPRINT"CCRSR arribaKCRSR arribal":G0T0960 

980 PRINT"CSHIFT+CLR/HOMEKCRSR abajo3CCRSR abajolCCRSR abajoDCCRSR abajo3 
CCRSR abajoKCRSR abajoHCCRSR abajoHCCRSR abajoDCCRSR abajo3CCRSR abajo] 
CCRSR abajo^CCRSR dcha.3CCRSR dcha.HCCRSR dcha.HCCRSR dcha.DCCRSR dcha_] 
CCRSR dcha.nCCRSR dcha.DCCRSR dcha-^CCRSR dcha.IICCRSR dcha.]CCRSR dcha.] 
CCRSR dcha-lCCRSR dcha.HCCRSR dcha.IlCCRSR dcha.KCRSR dcha,3CCRSR dcha,] 
CCRSR dcha.r';"O.K-":GOSUB5050:F2=4:GOSUB5050 

990 PRINT"CSHIFT+CLR/H0MEDCCTRL+8:iCC0MM+Ar';:P0KE53280,0:P0KE53281,0 

1000 F0RE=1TO38:PRINT"CSHIFT+*n";:NEXT 

1010 PRINT"CC0MM+s:"; 

NOTA: Por Las obLigadas Limitadones de espacio, este instructivo programa 
acabarS en eL pr6ximo ndimero. 

U- 
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TIENES 
UNA GITA 




CALENDARIO MENSUAL 
CALENDARfO ANUAL 



RELLEMANDO EL DIARIO 



CITAS, FINA N ZAS, FIESTAS 
Y CELEBRACIONES 



^No seras una de esas personas que 
siempre se olvida del cumpleanos de su 
madre, o que se acuerda de que tiene 
una cita con eJ dentista dos dias des- 
pues de la fecha en que debiera haber 
ido? ^O tal vez te sorprendes cuando 
te encuentras en tu buzon una factura, 
aun sabiendo que tiene que aparecer 
regularmente cada cuatro meses? 

El program a que vamos a ver a con- 
tinuacion se ocupara de recordarte 
todo este tipo de cosas. Es muy senci- 
llo de usar y resulta mucho mas diver- 
tido que escribir notas en un diario, 
por lo cual no tendras excusa si te ol- 
vidas de acudir a una cita o de pagar 
un recibo. Si tienes impresora, puedes 
sacar ademas una copia impresa del 
diario, llevandola contigo para consul- 
tar tus proximos gastos cuando no ten- 
gas el ordenador a mano. 



CALENDARIO AUTOIVIATICO 



con espacio suficiente para que pue- 
das escribir notas junto a cada una de 
las fechas. 



En realidad el programa hace dos 
cosas: cs capaz de imprimir un calen- 
dario o un diario. La opcion mas sen- 
cilia te permite obsetvar una hoja de 
calendario de cualquier mes entre los 
afios 1.753 y 29.999. La presentacion 
de dicha hoja se hace de la forma acos- 
tumbrada, con los nombres de los dias 
de la semana en la parte alta, y los nu- 
meros alineados por columnas debajo. 
El programa tiene en cuenta automa- 
ticamente los anos bisiestos y la fecha 
del Domingo do Resurreccion se im- 
prime debajo del mes en que cae cada 
ano. 

Aparte de considerarlo como calen- 
dario de un solo mes, puedes tener el 
calendario de un ano complete. Te re- 
sultara muy util en el caso de que ten- 
gas una impresora, ya que puedes sa 
car una copia del calendario y ponerla 
en tu mesa de trabajo o pincharla en 
la pared, quedando la presentacion 



DIARIO ELECTRONICO 

La opcion de diario te permite man- 
tencr el seguimiento de lo que va su- 
cediendo. Puedes hacer anotaciones 
bajo cuatro encabezamientos distin- 
tos: Finanzas, Entrevistas, Celebra- 
ciones y Vacaciones, estando cada una 
de ellas destacada con un color dife- 
rente para que cuando utilices el dia- 
rio te resulte mas facil encontrar un 
tipo de anotacion determinado. 

La introduccion de la informacion 
es muy sencilla, y este programa tiene 
ademas la ventaja sobre los diarios or- 
dinarios de que sc ocupa automatica- 



mente de los acontecimientos regula- 
res, tales como recibos o aniversarios, 
situandolos en la fecha correcta para 
todos los siguientes meses o anos. Por 
ejemplo, si haces una anotacion bajo 
cl encabezamiento de Finanzas, el 
programa te preguntara primeramen- 
te si se trata de una operacion anual, 
mensual, cuatrimestral o simplemente 
es la linica vez que se produce. Supon- 
gamos que estas tecleando los detalles 
de tus pagos mensuales. En tal caso, 
teclearias M para indicar pagos 
mensuales y a continuacion el nombre 
del concepto ALQUILER, seguido 
por la fecha del primer pago. A partir 
de ese momento aparecera la palabra 
ALQUILER junto al dia correspon- 
diente de todos los meses 
siguientes. 
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Aplieaciones 



La opcion de Celebraciones agrupa 
todas las cosas del tipo de cumplea- 
nos, aniversarios, onomasticas, etc, de 
forma que pueden ser tenidos en cuen- 
ta automaticamente como sucesos 
anuales. Las Entrevistas y Vacaciones 
se tratan como acontecimientos uni- 
cos. 

El orden en que iiitroduzcas las fe- 
chas no tiene importancia, ya se en- 
carga el ordenador de ponerlas en su 
orden y de agruparlas correctamcntc 
en el mes adecuado. 

En cuanto tengas introducidos los 
datos, conviene que los almacenes lo 
antes posible con la opcion SAVE del 
menu para prevenir posibles desastres 
en el programa. Los datos quedan al- 
macenados en un fichero separado Ila- 
mado DIARIO, pudiendo ser carga- 
dos, corregidos, actualizados o borra- 
dos en cualquier momento. Por eso re- 
sulta tan facil mantener tu diario al 
dia. 



USO DEL DIARIO 



En cuanto hayas introducido algu- 
nos datos en el programa, pucdes ver 
como funciona el diario para las apli- 
caciones mcnsuales. Teclea el niimero 
del mes y el ano y podras ver todas las 
entradas correspondientes a ese mes y 
ese aho, incluyendo las operaciones fi- 
nancieras regulares y las celebraciones 
programadas desde meses o aiios an- 
teriores. Las entradas se agrupan jun- 
tas bajo las dife rentes categorias, cada 
una de ellas destacada en los mismos 
colores que se utilizan para el calen- 
dario mensual. 

El programa espera a que pulses 
una tecla antes de presenter cada gru- 
po en la pantalla. Esto es asi en el caso 
en que hay a que aeomodar demasia- 
das entradas en la pantalla de una sola 
vez, por lo que se detiene para que 
tengas la posibilidad de leer la panta- 
lla antes de hacer un scrolling para la ' 
presentacion de nuevos datos. Si tu , 
ordenador tiene conectada una im- / 
presora, puedes optar por sacar una 
copia impresa de todos los datos. 

Si pasas ahora nuevamente a la 
opcion de calcndario y sacas una co- 
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pia impresa para esc mismo mes, pue- 
des realzar las fechas correspondien- 
tes a las entradas del diario pulsando 
una de las teclas F , E , C o V 
para cada una de las cuatro categorias 
(finanzas, citas, celebraciones o vaca- 
ciones). Tambien en cste caso se pre- 
sentan con su correspondiente color, 
para que sepas a que categoria corres- 
ponde cada fecha, si bien neccsitas cl 
diario para conocer los detalles de 
cada entrada. 

La mejor forma de utilizar el progra- 
ma depende de lo que quieras saber. 
Si quieres recordar lo que tienes en un 
mes determinado, selecciona el diario 
dc ese mes. Si por el contrario lo que 
deseas es echar un vistazo a todo un 
ano completo para ver, por ejemplo, 
como se te presenta desde el punto de 



vista tinanciero, en tal caso lo mas ra- 
pido es seleccionar el calendario del 
primer mes y destacar las fechas finan- 
cieras pulsando la tecla F , pasar al 
mes siguiente y hacer lo mismo y asi 
sucesivamente hasta completar todo el 
ario, Cuando hayas utilizado el pro- 
grama te daras cuenta de la gran fle- 
xibilidad que tiene. 

INTRODUCCION DEL PROGRAMA 

El programa combinado dc calcn- 
dario y agenda te ayudara a mantener 
tus asuntos en orden y a planificar el 
ano proximo. Toma ahora una de tus 
resoluciones de Ario Nuevo y empie- 
za a utilizarlo ya. 

'^^fl^^ para Connmodore-64 

1 REM**C3 SIGNIFICA ESPACIO 
10 PRINT"CSHIFT+CLR/H0ME3": 
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180 



190 



200 




"TRIM":CD$C3)="ANUAL": 
CD$C4)="UNIC0" 



290 



20 



30 



40 
50 

60 

70 

80 

90 



DIM DL$C3,100):POKE 53280 
,1:P0KE 53281,1 

Ml $="ENERon: c: d cd c: febre 
roc: n [] MARzoG G CK] :: 
ABRiLG c: [: :: c: mayo:: iiG c: 

aGGJUNIODGGGG" 

m2$="julioc:c:[::d[:agos 
Ton [: c: :: septiembreoctu 
bre[::l:[:noviembrec:di 
ciembre" 

MN$=M1$+M2$ 

ML$="31 28313031 3031 313031 

3031" 

DN$="D0MLUNMARMIEJUEVIE 

SAB" 

ST$(0)="FINANCIERO":ST$ 

(1)="ENTREVISTAS" 

ST$(2)="CELEBRACI0NES": 

ST$(3)="VACACI0NES" 

CD$(1)="MENS":CD$C2)= 



100 



110 
120 
130 



CLC0)=28:CLC1)=31:CLC2) 
=156:CL(3)=144:CL(4)=30 
:WH=5 
Z=0:DR=0 
GOSUB 2070 
PP%=0 
140 POKE 53280,6: POKE 53281, 
13:PRINT"CSHIFT+CLR/H0ME: 
"TAB(9) "[:C0MM+7: [:coMM+*: 
CCTRL+9: CALENDARIO/ 
AGENDA CCTRL+ODLSHIFT+§:" 350 
PRINT TABC10)"CCTRL+6: 

i:coMM+*: [cTRL+9: c: c: n: c: 
i::i::nMENUGGc:[:[:c:c: 
i:cTRL+o:t:sHiFT+§:" 

PRINT TABC12)" 
i:5*CRSR abajo:CCTRL+6J 
1 CALENDARIO ANUAL" 
PRINT TAB(12)" 
i:2*CRSR abajo:2 VER 



150 



160 



170 



300 

310 
320 
330 

340 



360 

370 
380 
390 
400 

410 



DIARIO" 

PRINT TAB(12)" 

i:2*CRSR abajo:3 ALTERAR 

DIARIO" 

PRINT TAB(12)" 

i:2*CRSR abajo:4 SALIR 

DEL PROGRAMA" 

PRINT TAB(IO)" 

!:6*CRSR abajo:rCTRL+9: 

i:cTRL+6: csHiFT+§: l: u a 
ELiGE opcioN[:n:t::c: 

[COMM+*:" 

PRINT TAB(9) "CCTRL+9: 

i:C0MM+73 CSH I FT+§: C] U CI 

c:c:?cj?c:?c:?c:?i::?c:l: 

c:c:gi:comm+*:cclr/home:" 
get a$:if a$=""g0t0 220 

A=VAL<A$) 

IF A<1 OR A>4 GOTO 220 

POKE 53280,1 :0N A GOSUB 

290,290,1100,270 

260 GOTO 130 

270 IF DR=1 THEN GOSUB 

2170 
275 INPUT "CSHIFT+CLR/ 

HOME] CCTRL+i: 

presiona(s)alir 
enu";rs$:if rs$="m" 
then return 
280 print"cshift+clr/ 

home:[comm+7:"jpoke 

53280,14: POKE 
53281 ,6:END 

input"Cshift+clr/home: 

CCRSR abajo:CCRSR dcha.: 

CCTRL+6: ESCRIBE EL A#0 

(1753 A 29999) ";Y 

IF Y<1753 OR Y>29999 

GOTO 290 

YY=Y:Y=Y-1 

LY=0 

IF YY/4=INT(YY/4) THEN 

LY=1 

IF YY/100=INTCYY/100) 

THEN LY=0 

IF YY/400=INTCYY/400) 

THEN LY=1 

ND=365*Y+INT(Y/4)-INT 

(Y/100)+INTCY/400)+1 

ED=ND+59+LY 

ND=ND-INTCND/7)*7 

ED=ED-INT(ED/7)*7 

N=INTCYY/100)-16 

C=3+N"INT((N+1)/3)-INT 

(N/4) 



INPUT 
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420 

430 

440 

450 

460 
470 
480 
490 
500 

510 
520 

530 



540 
550 
560 

570 
580 
590 



600 
610 



N=YY+1-INTC(YY+1)/19)*19 

:IF N=0 THEN N=19 

D=C+1 9*N- INK ( C+1 9*N) / 

30)*30 

IF N>11 AND D>27 THEN 

D=D+1 

IF N<=11 AND D=29 THEN 

D=28 

D=D+21 

D=D+1 

X=D+ED-INT( CD+ED) /7) *7 

IF X01 THEN 470 

EM=3:IF D>31 THEN D=D-31 

:En=4 

ED=D 

IF A=1 THEN 60SUB 870; 

RETURN 

INPUT "CCLR/H0ME3 

C3*CRSR abajo] 

CCRSR dcha.aaUE MES";A$: 

M7VAL(A$):IF M<1 OR M>12 

GOTO 530 

GOSUB 550: RETURN 

C=5:Z=0:PP=0 

PRINT'TSHIFT+CLR/HOME]" 

;CHR$CWH) 

IF Z=0 THEN GOSUB 650 

IF 2=1 THEN GOSUB 1870 

PRINT"C4*CRSR abajoD": 

GOSUB 2280: IF K=8 THEN 

K=0:GOTO 560 

GOSUB 980 

ON K GOSUB 1600,1600, 

1600,1600,1830,1830,1850 



620 
630 
640 
650 



THEN RETURN 
AND M<13 GOTO 



560 



700 
710 
720 
730 



,2270 

IF K=9 

IF M>0 

RETURN 

T=0 
660 HL=VALCMID$CHL$,2*H-1,2) 

):IF M=2 THEN ML=ML+LY 
670 IF M=1 THEN T=0:GOT0 720 
680 FOR N=1 TO M-1 
690 T=T+VALCHID$(ML$,2*N-1, 

2)) 

NEXT 

IF R>2 THEN T-T+LY 

SD=T+ND-INTC (T+ND) /7) *7 

PRINT'TSHIFT+CLR/HOME] 

CCTRL+6: CCRSR abajo:" 

TAB(11)"i:CTRL+9:"MID$ 

(MN$,M*10-9,10);" ";YY;" 

CCRSR abajo: ECTRL+3r': 

PRINT TAB(5); 

FOR N=1 TO 7: PRINT" 

CCTRL+9:"MID$(DN$,3*N-2, 

3);"CCTRL+0: ";:NEXT N 

PRINT'TCTRL+21 

CCRSR abajor'rPRINT TAB 

(4*SD+5); 

X=SD 

FOR CD=1 TO ML 

GOSUB 1600 

D$=STR$(CD)+" " 

IF LENCD$)<4 THEN D$=D$ 

+CHR$C32) 

PRINT CHR$CCC);D$;;X=X+1 

IF X>6 THEN PRINT: PRINT 



740 



750 



760 
770 
780 
790 
800 

810 
820 



TAB(5);:X=0 
830 NEXT CD 
840 IF M=EM THEN PRINT: PRINT 

TABC5)"CCTRL+6: 

CCRSR abajo^DOMINGO DE 

PASCUA";ED;"DE ";MID$ 

(MN$,H*1 0-9,10) 
850 PRINT 
860 RETURN 
870 C=5 
880 PRINT "CSHIFT+CLR/HOME] 

CCRSR abajoDCCRSR dcha.l 

c ctrl+91 cctrl+63 ci c] c: li 

c:quieres copia en papel 

cs/n)?c]c3cjc3" 

890 get a$:if a$="" goto 890 

900 if a$="s"then gosub 3060 

910 FOR M=1 TO 12 

920 GOSUB 650 

930 PRINT 

940 IF PP=0 THEN GET A$:IF 

A$="" GOTO 940 
950 NEXT M 
960 GOSUB 2280 
970 RETURN 
980 PRINT"CCTRL+6] 

C4*CRSR dcha.:CCTRL+9] 

lctrl+33fcctrl+63cctrl+0: 
inanzas,cctrl+9j cctrl+63 
ecctrl+6JLctrl+o:ntrevis 

TAS,CCTRL+9:CCTRL+i:V 

CCTRL+6]CCTRL+0]ACA 

CIONES" 

990 PRINT TABC4)"CCTRL+9] 



INFORMACION Y VENTA: 



DELTAS IT 

Colon, 20 
46460 S\LU\ 
(VALENCIA) 
Tel. (96) 120 29 25 



DELTtlir 



SOFTWME-KtMWIRE 
CULTUMl 



DISTRIBUIDORES BIENVENIDOS 

J FORMA DE PAGO: ^^ 

•CHEQUE PERSONAL 
•CORREO 

C0NTRAREEM80LS0 
•TARJETA VISA 
•MASTERCARD 




CARTUCHO FREEZE FRAME MKIII. EL MEJOR DE LOS METODOS DE BACKUP ES AHORA TODAVIA MEJOR. NUEVA 

VERSION MKIII. 

El carliicho le hace VACKUPS de: CINTA A DISCO * CINTA A CINTA * DISCO A DISCO * DISCO A CINTA. FUN- 

ClONA CON: Ordenaciores: C-64, C-128 y C-128/D (en modo C-64) - Unidades de disco: 1541, 1570, 1571 - Da- 

tessette: Commodore o compatible. Hace el BACKUP: Ocupando el menor espacio de disco o cinta posible. Tam- 

bien de programas MULTI PROGRAM AS. 100% de exito en el BACKUP. Salva a disco en modo TURBOSAVE, TUR- 

BOLOAD Y AUTO RUN, o a velocidad Normal (para los que tengan un turbo instalado en la unidad de disco), y en 

cinta salva a unos 2400 baudios (TURBOSAVE), TURBOLOAD Y AUTORUN. Es totalmente TRANSPARENTE, lo que 

implica que no ocupa memoria y que es totalmente compatible con cualquier software. 

IMPORTANTE: Los backups corren INDEPENDIENTEMENTE del cartucho FREEZE FRAME MKIII. ATENCION: No 

se deje influenciar por otros medios de BACKUP. El cartucho FREEZE FRAME fue e! primero en nacer y ha dado 

lugar a muchas imitaciones. Pero sigue siendo el LIDER. De exclusive uso personal. 

GARANTIA: 6 meses. PRECIO: 11.900 ptas. (INCLUIDO: IVA + Gastos de envto). DELTABIT otrece a sus CLIEN- 

TES !a posibilidad de cambiarles el MKII por la nueva version MKIII, al precio de 4.000 ptas. (IVA + gastos, incluidos). 

INTERFACE COSMOS' THOUG: Este interface le pernnite hacer backups de seguridad de CINTA A CINTA de TODO 
software en soporte cassette (de CUALQUIER ordenador personal). 

Funciona con: C-64, C-128, C-128/D y dos datassettes Commodore o compatibles (o una datassete y una cassette 
de audio norma!). 

100% de exrto GARANTIZADO en el backup. De exclusivo uso personal. Testigo acustico de volumen regu- 
lable. GARANTIA: 12 meses. PRECIO: 4.900 ptas. (INCLUIDO: IVA + Gastos de envio). 

DIS-DISECTOR V5.0... Prestaciones: 8Min Mibbler, 3Min Nibbier, Double, Parameter Copy, Fast File Copier, Fast Format, Scratch, File Copy DiscMonitor+, index, Bam 

Allocation, View Bam, Dis Rescue, Novatrans, Disco, Fast Copy, Select Menu, Rename, Disc to tape. Disc Orderly, Directory Change, Unscratch, Track Reader, Disc Protect, 

Doubie Backup, Instalacion de Turbo-Load en disco individual Precio: 7.300 ptas. 

QUIET DRIVE STOPS... Impiden el desalineamiento del cabezal de su unidad 1541 para siempre. Se suministran en cada pedido dos juegos (para 2 unidades 1541). De 

faci! instalacion. Precio; 1.750 ptas. 

AZIMATE 3000... Cassette con programa de ayuda para alinear el cabezal de la unidad datassette. Se suministra con el destornillador apropiado. Precio: 2.100 ptas. 

LOTTO CIPHER... Programa en disco para jugar a la loteria primitiva por ordenador. Base de Datos de los numeros e historial. La mejor y peor combinaciones, La com- 

binactbn que mas ha salido y la que menos. Precio: 4.300 ptas. 



Aplicaciones 



i:CTRL+53CCCTRL+63 
CCTRL+03ELEBRACI0NES, 
i:CTRL+93PCCTRL+03ROXIMO, 
:CTRL+93ACCTRL+03NTERIOR" 
1000 PRINT TAB(4)"!:CTRL+93D 

cctrl+o:etalle,dctrl+9: 
icctrl+o:mpririr, 
i:ctrl+9:m[ctrl+odenu" 
1010 get a$:if a$="" goto 

1010 

1020 N=0 

1030 N=N+1 

1040 IF MID$C"FECVPADIM",N,1) 
=A$ GOTO 1070 

1050 IF N<9 GOTO 1030 

1060 C=0:GOT0 1030 

1070 K=N:C=N-1:IF C<4 THEN 
CP=C 

1080 IF Z=1 AND K<5 GOTO 
1010 

1090 RETURN 

1100 DR=:1 

1110 POKE 53281 ,3:PRINT 
"CSHIFT+CLR/HOME] 
CCRSR abajoDCCRSR abajo] 
i:CTRL+1D"TAB(2)"EDICI0N 
DE ACONTECIMIENTOS 
DIARIOS" 

1120 PRINT TAB(2)"LCTRL+21 

CCOMM+Tl CCOMM+T: rC0MM+T3 
[COMM+TD LC0MM+T3 CCOHM+Tl 
i:C0MM+T]i:C0MM+T3CC0MM+T: 
CCOMPI+T] CCOMR+TD CCOMR+t: 
I COMM+TD C COMM+TD C C0MM+T3 
C COMM+t: C C0MM+T3 C COMH+Tl 
CCOMM+T] CC0MM+T3 CCOMM+TD 
C COMM+T] C C0MM+T3 CC0MM+T3 

ccoMM+TJ ccomm+tkcomm+t: 

[ C0MM+T3 C C0MM+T3 C C0MM+T3 
CC0MM+T3 CC0MM+T3 CC0MPHT3 
CCOMM+T^ CCRSR abajo3 
CCRSR abajo: CCTRL+7D" 

1130 FOR N=0 TO 3:PRINT TAB 
(11)N+1;" ";ST$(N)" 
CCRSR abajo:":NEXT N 

1140 PRINT TAB(12)'*5 VUELTA 
AL MENU" 

1150 PRINT TAB(13)"CCTRL+13 
CCRSR abajoDCCRSR abajoD 
CCRSR abajoDESCRIBE LA 
OPCION?" 

1160 PRINT TAB<13)"CCTRL+23 

CCOMM+TKCOMM+Tl CCOMM+t: 
CCOMM+T: C COP^M+TK COHM+T] 
CC0MM+T3 CCOMM+TD CCOMM+T] 




c comm+t: c comm+t] c comm+t: 
CCOMM+t: CC0MM+T3 ccomm+t: 
CCOMM+t: ccomm+t: 
ccomm+t:" 
1170 get a$:if a$="" goto 

1170 
1180 A=VAL(A$)-1:IF A<0 OR A 

>4 GOTO 1170 
1190 IF A=4 THEN RETURN 
1200 POKE 53281 ,3: PRINT" 

CSHIFT+CLR/HOME: CCRSR 

aba j o: "TAB(20- (LEN( $T$ 

CA))*.5))"CCTRL+9:"CHR$ 

CCLCA));ST$(A)" 

CCRSR abajo:" 
1210 MX=VALCDL$CA,0)>:IF MX 

=0 GOTO 1290 
1220 FOR N=1 TO MX 
1230 A$=STR$CN)+" ":IF LEN 

CA$)<3 GOTO A$=A$+" " 
1240 PRINT A$; 
1250 FOR N1=1 TO 4:CD(N1)= 

ASC(MID$CDL$(A,N),N1,1) 

):NEXT N1 



1260 

1270 

1280 
1290 

1300 

1310 
1320 
1330 

1340 

1350 



1360 
1370 



CD(4)=CDC4)+(ASC(HID$ 
([>L$(A,N),5,1))*256) 
PRINT C[>$(CD(1));" "; 
STR$CCDC2));" ";STR$ 
CCD(3));" ";STR$(CD(4)) 

PRINT MID$(DL$(A,N)^6) 

:NEXT N 

PRINT TABC9)" 

CCRSR abajo:(A)#ADE,(B) 

ORRA,CM)ENU" 

GET A$:IF A$="" GOTO 

1300 

IF A$="M" 

IF A$="A" 

IF A$="B" 

1560 

GOTO 1300 

PRINT"CCRSR abajo: 

CCRSR abajo:CCRSR abajoH 

EVENTO (16 LETRAS 

MAXIMO) " 

INPUT A$ 

PRINT "Cshift+clr/home: 

CCRSR abajo: CCTRL+9:" 
TABC12)"ENTRADA DE 



GOTO 1110 
GOTO 1350 
AND MX>0 GOTO 



INPUT 27 



Aplicaciones 



FECHASLCRSR abajo] 
LCRSR abajoD" 
1380 INPUr'CCRSR dcha-D 
LCRSR dcha.DLCRSR 
dcha.] A#OCCRSR 
dcha.r';Y:IF Y 
<1753 OR 
Y>29999 GOTO 
1380 



1390 



^1400 
1410 




INPUT'TCRSR dcha.J 

ECRSR dcha.DCCRSR dcha-3 

MESCCRSR dcha.3";M:IF M 

<1 OR M>12 GOTO 1390 

LY=0 

IF M=1 AND Y/4-INT(Y/4) 

=0 THEN LY=1 

INPUT'TCRSR dcha.3 

tCRSR dcha.JCCRSR dcha.3 

DIACCRSR dcha.D";D:IF D 

<1 OR [»VALCMID$CML$,M* 

2-1,2))+LY GOTO 1420 

IF A=0 GOTO 1480 

FR=4;IF A=2 THEN FR=3 

MX=MX+1 :DL$(A,0)=STR$ 

(MX):Y9=INT(Y/256):Y8= 

Y-(Y9*256) 

DL$CA,HX)=CHR$(FR)+CHR$ 

CD)+CHR$(M)+CHR$CY8)+ 

CHR$(Y9)+LEFT$CA$,16) 

GOTO 1200 

PRINT'TCRSR abajoJ 

CCRSR abajolCCRSR abajoJ 

i:C0MM+1]CM)ENSUAL,<T) 

RIMESTRAL,CA)NUAL,(U) 

NICO" 

FR=0:GET X$:IF X$="" 

GOTO 1490 

THEN FR=1 
THEN FR=2 
THEN FR=3 
THEN FR=4 



X$="M" 
X$="T" 
X$="A" 
X$="U" 



IF 

IF 

IF 

IF 

IF FR=0 GOTO 1490 

GOTO 1450 

PRINT"QUE NUMERO"; 



INPUT 



GANADORES DE LOS MEJORES DE INPUT COMMODORE 


En el sorteo conrespondiente al numero 


13 entre qutenes escribistels mandando vuestros votes a LOS 


MEJORES DE INPUT lian resuitado ganadores: 






NOMBRE 


LOCALIDAD 


JUEGO ELEGIDO 


Manuel Martinez Fajardo 


Albacete 


Leader Board 


Miguel Frau Riera 


P. de Mallorca (Baleares) 


Psi. 5 T Company 


Francisco Montoro Albiach 


Valencia 


Spitfire 40 


J. Miguel Rodriguez Rodriguez 


La Laguna (S. C. de Tenerife) 


Cauldron 11 


Laureano Royo Sirvent 


Elda (Alicante) 


Skyfox 


J. Antonio Segovia Morales 


Madrid 


Skyfox 


Josep M.' Montragull Llenas 


Vila Rodona (Tarragona) 


Commando 


Ruben Garcia Libran 


Ponferrada (Leon) 


Commando 


1. Jos6 Sanchez Pescador 


Valencia 


Hardball 


Fernando Morago Casero 


Madrid 


Urldium 



Aplicaciones 



A$:X=VALCA$) 
1570 IF X<1 OR X>MX GOTO 

1560 
1580 FOR N=X+1 TO MX:DL$CA, 

N-1)=DL$CA,N):NEXT N 
1590 DL$(A,D)=STR$CMX-1): 

GOTO 1200 
1600 IF Z=1 THEN RETURN 
1610 IF C>3 THEN CC=WH: 

RETURN 
1620 IF M=EM AND CD=ED THEN 

CC=CL(4): RETURN 
1630 MX=VAL(DL$CC,0)) 
1640 IF MX=0 THEN CC-WH: 

RETURN 
1650 LX=0 
1660 LX=LX+1 
1670 CD(2)=ASCCMID$(DL$(C, 

LX),2,1)) 
1680 IF CD<>CD(2) THEN CC=WH 

:G0TO 1710 
1690 GOSUB 1740 
1700 IF FL=1 THEN CC=CLCC): 

RETURN 
1710 IF LX<MX GOTO 1660 
1720 CC=WH 
1730 RETURN 
1740 FL=0 
1750 FOR N1=1 TO 4:CD(N1)= 

ASCCMID$(DL$CC,LX),N1, 

1)) 
1760 NEXT N1:CDC4)=CDC4)+ 

(ASCCMID$(DL$(C,LX),5, 

1))*256) 
1770 IF CD(4)>YY THEN FL=0: 

RETURN 
1780 IF CD(1)=1 AND |vi>=CD(3) 

THEN FL==1: RETURN 
1790 IF CDC1)=2 AND M>=CD(3) 

AND M-CDC3)-INT(CR-CD 

(3))/3)*3=0 THEN FL=1 : 

RETURN 
1800 IF CD(1)=3 AND CD(3)=H 

THEN FL=1: RETURN 
1810 IF CD(1)=4 AND CD(3)=M 

AND CDC4)=YY THEN FL=1, 
1820 RETURN 
1830 IF K=6 THEN M=M-1 : 

RETURN 
1840 IF K=5 THEN M=|VH-1 : 

RETURN 

1850 if z=1 then z=0: return 
1860 if z=0 then z=1: return 
1870 if pf>=0 then print" 
cshift+clr/home:" 



1880 PRINT" DIARIO PARA "; 

MID$C|VlN$,|vi*1 0-9,10) : 

PRINT 
1885 IF MOEM THEN 1910 
1890 PRINT" FECHA :";STR$ 

CED) 
1900 PRINT" EVENTO : DOMINGO 

DE PASCUACCRSR abajo]" 
1910 ML=VAL(MID$CML$,2*M-1,2 

)):IF M=2 THEN ML^ML+LY 
1920 C=CP:IF C>3 THEN C=0 
1930 PRINT TAB(20-CLEN(ST$ 

CC))*.5))":CTRL+93"CHR$ 

(CL(C));ST$(C) 
1940 MX=VAL(DL$CC,0)) 
1950 IF MX-0 GOTO 1990 
1960 FOR CD=1 TO ML: FOR LX=1 

TO MX:CD(2)=ASCCNID$ 

(DL$CC,LX),2,1)) 
1970 IF CD=CD(2) THEN GOSUB 

2010 
1980 NEXT LX,CD 
1990 RETURN 
2010 GOSUB 1740 
2020 IF FL=0 THEN RETURN 
2030 A$=STR$(CD):IF LENCA$) 

<2 THEN A$=A$+" " 
2040 B$=DL$CC,LX) 
2050 PRINT A$;CHR$(CLCC)); 

RIGHT$CB$,LEN(B$)-4) 
2060 RETURN 



2070 print'tshift+clr/home: 

CCRSR dchaJCCRSR dcha.: 
[CRSR dcha.nCCRSR abajoD 
i:CTRL+9KCTRL+43HAY 
ALMACENADO ALGUN DIARIO 
( S/N) ?CCTRL+1 : i:COMM+*] " 

2080 PRINT"ECRSR dcha.] 

CCRSR dchaJCCRSR dcha.3 
[COMR+*3CCTRL+9J 
C34*ESPACI0]i:CRSR 
abajoU" 

2090 GET A$:IF AS="" GOTO 
2090 

2100 IF A$="N" THEN RETURN 

2110 IF A$="S" GOTO 2130 

2120 GOTO 2090 

2130 GOSUB 3000:0PEN1,DV,0, 
NM$ 

2140 for c=0 to 3:input#1, 
dl$(c,0) :mx=valcdl$cc,0 
)) :if mx=0 goto 2160 

2150 for n=1 to mx: input#1 , 
dl$(c,n):next n 

2160 next c:close 1:return 

2170 print"Cshift+clr/home: 
i:cTRL+9:[:cTRL+ia almace 

NAS DIARIO ACTUALIZADO 

(S/N)?" 
2180 GET A$:IF A$="" GOTO 

2180 
2190 IF A$="N" THEN RETURN 





2200 
2210 

2220 
2230 
2240 
2250 
2260 
2270 

2280 

2290 
3000 



3010 



3020 



3030 



IF A$<>"S" GOTO 2180 
GOSUB 3000:OPEN 1,DV,1, 

um 

FOR C=0 TO 3 

MX=VALCOL$(C,0>) 

FOR N=0 TO MX 

PRINT#1,DL$(C^N) 

NEXT N,C:CLOSE 1:RETURN 

PP=1 :0PENl,4:ClviDl: 

RETURN 

IF PP=1 THEN PRINT#1, 

" ":CL0SE1 

PP=0:RETURN 

NK$="": INPUT "NOMBRE 

DEL FICHERO";NM$:IF NI^IS 

=""THEN 3000 

DV==1 : INPUT "(D)ISCO 

(C)INTA";DV$:IF DV$="D" 

THEN DV=8 

PRINT TAB(13)" 

CCRSR abajoKCRSR abajo] 

LCTRL+9]PRESI0NAR UNA 

TECLA":P0KE 198,0:WAIT 

198,1 :P0KE 198,0 

PRINT'TSHIFT+CLR/HOME]" 

: RETURN 



Al ejecutar por primera vez el pro- 
grama, te preguntara si ya tienes al- 
macenada alguna lista en la agenda. 
De momento no tienes nada, por lo 
que tienes que responder tecleando 
N . El programa pasa entonces a re- 
presentar el menu principal, que cons- 
ta de cuatro opciones: 



1.- Calcndario anual 

2.- Consultar agenda 

3.- Modificar agenda 

4.- Salir del programa 

Puedes consultar el calendario 
anual o mensual sin tener que intro- 
ducir datos, por lo que puedes empe- 
zar por hacer esto. 

MIRANDO EL CALENDARIO 

Si seleccionas la opcion 1, puedes 
consultar un calcndario valido para 
cualquier mes o aiio dentro de los li- 
mites del programa. Dichos limites 
van desde el aiio 1.753, cuando empe- 
z6 el moderno calendario gregoriano, 
hasta el ano 29.999. jSuponemos que 
sera suficiente para ti! Por cierto, el 
mes debe ser introducido en forma de 
mimero (de 1 a 12); el programa no 
aceptara palabras. 

Si tienes una impresora conectada 
con tu ordcnador, tienes la opcion de 
sacar una copia del calendario impre- 
sa en papel; en caso contrario te apa- 
recera el calendario en la pantalla. En 
la parte superior se presentan el nom- 
bre del mes y el aiio. Mas abajo apa- 
recen los dias y las fechas. La semana 
se presenta empezando por el domin- 
go. La fecha del Domingo de Resu- 
rreccion se calcula automaticamente y 
se presenta abajo, siempre que caiga 
dentro del mes que se esta represen- 
tando (marzo o abril). 



Mientras consultas el calendario 
mensual, hay varias cosas que puedes 
hacer; al fondo de la pantalla tienes 
las diferentes opciones. Si pulsas M 
vuelves al menu principal. Las teclas 
L y N te permiten avanzar o re- 
troceder un mes. 

Las otras teclas que hacen algo son 
F , E , C y V , que se utilizan 
para las entradas correspondientes a 
Finanzas, Entrevistas, Celebraciones 
y Vacaciones. Pcro no te mostraran 
nada si las pulsas ahora, hasta que ha- 
yas realizado algunas entradas por me- 
dio de las siguientes opciones. 

Ademas tienes la posibilidad de pul- 
sar la tecla S para cambiar desde el 
calendario mensual a la agenda. 

ESCRIBIENDO EN LA AGENDA 

Si cliges la opcion 2 aparccera un 
diario o agenda mensual. Pero prime- 
ro tienes que efectuar algunas entra- 
das. Para ello tienes que seleccionar la 
opcion elegida seguida de alguna de 
las categorias. 

Sea cual sea la opcion que elijas, 
puisa A para anadir una entrada 
cualquiera, D para destruiria y M 
para volver al menu principal. 

Tal como vimos antes, la seccion 
llamada Finanzas ofrece una eleccion 
para realizar entradas mensualmente, 
trimestralmente, anualmente o para 
realizar una anotacion aislada. Para 
seleccionar una de las anteriores op- 
ciones, pulsa respectivamente M , 
T , A o S . A continuacion el 
programa te pedira que introduzcas un 
nombre o sentencia de hasta 20 letras 
para describir ei tipo de anotacion, se- 
guido de la primera fecha significati- 
va. Para una entrada que se repitc, 
esto ocurriria la primera vez que se 
realiza una anotacion, por ejemplo el 
pago del primer cheque la primera vez 
que cobres un sueldo. El programa se 
ocupa de cubrir automaticamente los 
detalles para los proximos meses o 
afios. Las Entrevistas y las Vacaciones 
se tratan como succsos aislados, pero 
las Celebraciones se consideran anua- 
les, por lo que puedes usar esta opcion 
para los cumpleaiios y demas aniversa- 
rios. 



30 INPUT 



rd 



BUENO 
COMO EL ORO 



JUEGO DE ESTRATEGIA 



EN LOS NEGOCIOS 



DESCRIPCION DEL JUEGO 



INGRESOS Y GASTOS 



LA RUTINA DE ROBO 



Vive ios riesgos y las satisfacciones 
de Ios grandes negocios con el juego de 
la mina de oro de INPUT. ^Estas se- 
guro de poseer la habilidad y el buen 
juicio necesarios para adoptar las de- 
cisiones correctas y actuar consecuen- 
teinente con ellas? 

La Mina de Oro es un juego de es- 
trategia comercial en el que tii haces 
el papel del propietario de una empre- 
sa minera. Tu mision es hacer que la 
compania prosperc lo niejor posible. 
Durante el desarrollo del juego se te 
iran presentando constantemente una 
serie de opciones cntre las que debes 
elegir, de tal manera que Ios destinos 
de la compania dependen de tu habi- 
lidad para tomar decisiones prudentes 
e imaginativas. 

Al igual que Ios juegos de aventu- 
ras, ios de estrategia en Ios negocios 
generalmente se escriben integramen- 
te en BASIC, no siendo necesaria la 
alta velocidad del codigo maquina. 
Ademas, debido a que no requieren 
grandes secciones de texto, es relati- 
vamente sencillo escribirlos en versio- 
nes para ordenadores que no tengan 
mucha memoria. 

En este caso hemos adornado el 
juego de la Mina de Oro anadiendole 
unos graficos que muestren el progre- 
so de la mina, con lo cual aumentan 
bastante las necesidades de memoria, 
si bien todavia cabe el programa en el 
Vic-20. 

El programa es con todo relativa- 
mente largo, por lo que lo hemos di- 
vidido en dos partes. En este articulo 
veremos la forma de establecer el nu- 
cleo del juego y en el proximo vere- 
mos algunas de las rutinas que necesi- 
tas para que el juego se pueda real- 
mente practicar. 

Cuando hay as introducido todo el 
listado que figura mas adelante, haz 
un SAVE para guardarlo hasta la pro- 
xima vez. 



DESCRIPCION DEL JUEGO 

Al empezar el juego, tus dos pose- 
siones son la empresa minera y 2 mi- 
llones de dolares en efectivo. Tienes 
que invertirlos inteligentemente en la 
exploracion del metal precioso. El ob- 
jetivo del juego es ganar tanto dinero 
como sea posible en 30 pasadas. Pue- 
des jugar tu solo o contra un oponen- 
te que tenga el control de una compa- 
nia rival. 

En cada pasada se te presentan unas 
cuantas alternativas entre las que ele- 
gir. Antes de empezar con las labores 
de mineria, debes encontrar un empla- 
zamiento adecuado, por lo que has de 
invertir para tener un informe de pros- 
pecciones. Con el informe anterior, 
podras estimar tus posibilidades de en- 
contrar oro, su profundidad probable 
y la cantidad esperada. Tienes que de- 
cidir si mercce la pena o no iniciar la 
explotacion. 

La mineria es muy cara, por lo que 
podrias decidir inversiones en investi- 
gacion y desarrollo de nuevos equipos 
que te permitan reducir Ios costes. Tal 
vez es mejor iniciar directamente las 
excavaciones, solo tu puedes decidir. 

Si das comienzo a las excavaciones, 
hay una representacion grafica que te 
permitira apreciar el progreso de la 
mina. Si no se encuentra oro, puedes 
elegir entre continuar excavando o 
abandonar la mina e iniciar un nuevo 
trabajo. 

A lo largo del desarrollo, hay otros 
dos facto res que entraran en juego. 
Cuando encuentres oro, puedes elegir 
entre almacenarlo en tus camaras aco- 
razadas o venderlo en el mercado de 
metales preciosos. Puede que sea ra- 
zonable conservarlo, en el supuesto de 
que no necesites dinero urgentemen- 
te, esperando hasta que alcance un 
precio mas ventajoso; el precio del oro 
esta fluctuando durante todo el juego. 



Pero ten cuidado, porque hay ladro- 
nes de oro y cuanto mayor cantidad 
tengas almacenada, mas tentador es su 
premio. 

En la segunda parte de este articu- 
lo veremos con mayor profundidad Ios 
trabajos asociados con el juego. Pero 
ahora teclea ya la primera parte del 
programa. 

para Commo(irjrp-64 

1 poke 52,48: poke 56,48:clr; 

print'tshift+clr/ homed "tab 
c3) "estoycidefiniendod 
los[:graficos,c:espera" 

2 GOSUB 60000 

3 POKE 53272,28 

5 POKE 53280,7:P0KE 53281,7: 
PRINT'TSHIFT+CLR/HOMEJ 
[CTRL+i:" 

10 PR1NT"CCLR/H0ME3 

CCRSR abajoDECRSR abajo3 
CCRSR abajoDECRSR abajoD 
CCRSR abajoJECRSR abajoJ 
CCRSR abajoDCCRSR abajoD 
CCRSR abajol CCRSR abajo3" 
;TAB(5);"CUANT0SC]JUGAD0 
RESC:(1C]0C:2)?":GET A$: 
IF A$="" THEN 10 

20 IF A$<"1" OR A$>"2" THEN 
10 

30 P=VAL(A$):NO=P 

40 DIM A(2,6>,C(2,5):ER= 
10000 

50 RC1)=0:RC2)=0:A(1,1)=C1C3 
C3CJ2000000:A(1,2)=200000 
0:AC2,1)=2000000:AC2,2)=2 
000000 

52 A(1,3)=0:A(2,3)=0:AC1,4)= 
1 000000: AC2,4)=1 000000: A 
C1,5)=0:AC2,5)=0:AC1,6)=0 

54 AC2,6)=0:PRINT"CSHIFT+CLR 
/HOMED" 

70 FOR N=1 TO P:PRINT"NOMBRE 
C]DELnjU6AD0R"N;: INPUT 
A$(N) :A$CN)=LEFT$( A$(N) , 
10):NEXT 

200 FOR N=1 TO 30: FOR M=1 TO 



Juegos INPUT 113 



©®«)(S(Sii\ffiB3]®Ki m mM^ 



NO 
202 POKE 53280,1: POKE 53281, 

1 :PRINT"CCTRL+1]CSHIFT+ 

CLR/HOMED" 
205 FOR F=54272 TO 54296: 

POKE F,0:NEXT 
210 PRINT'TCTRL+9D[:CTRL+1D 

"N;TABC10)"GnMINAnDE 

C:OROL]CCRSR abajoDCCTRL 

+73" 
220 PRINT TAB(16);A$C1);:IF 

N0=2 THEN PRINT TABC28); 

A$C2) 
230 PRINT:PRINT"CCRSR abajo3 

CCTRL+SDC^RECURSOSi:: 

TOTALES"; TAB(19); AC1 ,1 ) 

;:IF N0=2 THEN PRINT TAB 

(27);A(2,1); 
240 PRINT:PRINT"[:nENC:DINERO 

";TAB(19);A(1,2);:IF N0= 

2 THEN PRINT TAB(27);A( 

2,2); 
250 PRINT:PRINT"EN ORO KG"; 

TABC19);AC1,3);:IF N0=2 
THEN PRINT TAB(27);A 
(2,3); 

260 PRINTtPRINT'TlCOSTOn 
.. MINER0Sa";TABC19);AC1, 
4);: IF N0=2 THEN PRINT 
TAB(27);A(2,4); 

270 PRINT:PRINT"[]NUMEROC]DE 
GMINER0S";TAB(19);A(1,5) 
;:IF N0=2 THEN PRINT TAB 

• C27);AC2,5); 
280 PRINT:PRINT"n 

PR0FUNDIDADG";TABC19);A 
' C 1,6);: IF N0=2 THEN 
PRINT TABC27);A(2,6); 

300 PRINT:PRINT"CCRSR abajo: 

CCTRL+6:CCTRL+9DPRECI0 

C3ACTUAL:-": 

PRINT"$"ER;"CJPORL]KILO 

nDEGORO" 
400 PRINT'TCRSR abajoKCTRL 

+7]>CCRSR dcha.lCCRSR 

dcha.irCRSR dcha,]";A$ 

CM) 
500 PRINT'TCRSR abajo3CCTRL+ 

13CCTRL+9:31i:SHIFT+F]a- 

GBUSQUEDACJC^Yn 

• DESARROLLOCICJCICDL^CD 

cjLDGni::" 

510 print"Cctrl+9:]2i:shift+f: 
cd-gexploracioneschyc: 



GANANciASGnn[::]C3i::i::] 

520 PRINT"CCTRL+9:13[SHIFT+f: 

n-GAUM-nDEHLAC] 

profundidadc:eng200c: 

MTSG" 

530 print"[:ctrl+9]4i:shift+r: 
cd-tdcambiogdelgoroc: 
engdolaresc] gg c] l: g 

GGG" 

540 print"cctrl+915i:shift+f: 

:]- G PASOG G G! G G G G 
n:C3GGGGC:C3C]GG 

gc]L]gggg!::c:g[3 

G" 
550 PRINT'TCRSR abajo:CCTRL+ 
9]CCTRL+33lNTR0DUCEn:TU 
I::eLECCION":P0KE 198,0 
GET I$:IF 1$="" THEN 600 
IF I$<"1" OR I$>"5" THEN 
600 

ON VAL(I$) GOSUB 1000, 
2000,3000,4000 
IF ACM,2)<0 THEN 7000 
ER-ER+INTCRND(1)*1000) 
-200 
J=0:L=0 

IF INT(RNDC1)*1600)-ACM, 
3X0 THEN GOSUB 900 
ACM,1 )=A(M,2)+ACM,3)*ER 
POKE 53280,1 rPOKE 53281, 
1 :PRINT"CCTRL+1KSHIFT+ 
CLR/HOMEl" 
NEXT M^N 

poke 53280,3: poke 53281, 
3:print"i:ctrl+ij:shift+ 

CLR/H0ME3" 

PRINT'TCRSR abajoDCCRSR 
abajoDHCRSR abajoHtCRSR 
abajoUCCRSR abajoUCCRSR 
abajo3";TAB(15);":CTRL+ 

3:icctrl+93finalgde:] 

JUEGOCCRSR abajoJCCRSR 
abajoUCCRSR abajoXCTRL+ 
M" 
830 PRINT"TUC]RIQUEZAGT0TAL 
C:[)EG";A$(1);TAB(18);" 
GESGDEG"AC1,1) 

840 if n0=2 then print tab 
(5) "riqueza[:totalgdeg 
;"a$c2);tab(18);"gs0n$" 

AC1,2) 
850 PRINT:PRINT:PRINT"rCTRL+ 
3:ii:CRSR dcha.nCCRSR 
dcha.:CCRSR dcha.]CCTRL+ 



9:pulsagespaciogparag 
volver[]agempezarg" 

860 POKE 198,0 

870 IF PEEKC197)=64 THEN 

870 
880 RUN 3 
900 POKE 53280,2:POKE 53281, 

2 :PRINT"!:SHIFT+CLR/H0IV|E3 



600 

610 

620 

700 

710 

718 
720 

740 
750 



790 
810 



820 
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905 JK=INT(RNDC1)*100)+50:IF 
JK>ACM,3) THEN JK=A(W,5) 

910 PRINT'TCRSR abajoDLCRSR 
abajolCCRSR abajolCCRSR 
abajoKCRSR abajoDLCRSR 
abajo3CCRSR abajoJCCRSR 
aba]o]";TAB(12)"CCTRL+9D 



ciciinHnnnucDnnRn 
LiiniiLiao" 

920 PRINT TAB(9)"nCRSR abajo 
:nCTRL+2JHAN SIDO 
R0BA[>0S"JK"KG[:iDEC:OR0" 
ACM,3)=A(M,3)-JK:A(M,1)= 
ACM,1)-(JK*ER) 
FOR F=0 TO 24: POKE 54272 



925 



930 



+F,0:NEXT 
940 POKE 54286,5: POKE 54290, 

16:P0KE 54275,1 :P0KE 

54296,143:P0KE 54278,240 
950 POKE 54276,65 :FR=5389: 

FOR T=1 TO 150 
960 FQ=FR+PEEKC54299)*9.5:HF 

=INT(FQ/256):LF=FQ"HF* 
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256: POKE 54272,LF 
965 POKE 54273, HF:NEXT; POKE 

54296,0 
970 POKE 53280,1 :POKE 53281, 

1 :PRINT'TSHIFT+CLR/H0ME3 

CCTRL+1J "RETURN 

para Vic-20 

1 REM**aSIGNIFICA ESPACIO 
5 POKE 36879,25 :PRINT"CSHIFT 
+CLR/H0ME]CCTRL+3:":P0KE 
36878,15 
10 PRINT"CCLR/H0ME3CUANT0SG 
JUGADORES":PRINT" 
CCRSR dcha.lCCRSR dcha.3 
CCRSR dcha.lCCRSR dcha-3 
(iniOC12)":GET A$:IFA$^"" 
THEN 10 
20 IF A$<"1"0RA$>"2"THEN10 
30 P=VALCA$):NO=P 
40 DIM AC2,6),C(2,5):ER= 

10000 
50 RC1)=:0:RC2)=0:AC1,1) = 
2000000:A(1 ,2)=2000000: 
AC2,1)=2000000:AC2,2)= 
2000000 
52 AC1,3)=0:AC2,3)=0:AC1,4)= 
1 000000: A(2,4)=1 000000: A 
(1,5)=0;AC2,5)=0:A(1,6)=0 
54 AC2,6)=0:PRINT" 

CSHIFT+CLR/HOMED" 
70 FOR N=1 TO P: PRINT" 

CCRSR abajoDCCRSR abajo3 
CCTRL+6:N0MBREajUGAD0R 
[:CTRL+7:]";N: INPUT ASCN): 

A$(N)=LEFT$(A$CN),9): 
NEXT 
200 FOR N=1T0 30: FOR M=1 TO 

NO 
205 FOR F=54272 TO 54296: 

POKE F,0:NEXT 
210 PRINT"CSHIFT+CLR/H0ME3 
i:CTRL+13CCTRL+9]"N;TAB 
(4)"nMINAGDEi::0R0[J 
CTRL+73" 
220 PRINT"CCRSR dcha.J 

nCTRL+93"A$C1);:IF N0=2 
THEN PRINTTABC11);A$(2) 
230 PRINT: PRINT"CCTRL+3]T"; 
AC1,1);:IF N0=2 THEN 
PRINT TABC11);A(2,1) 
240 PRINT:PRINT"C"A(1,2);: 
IF N0=2 THEN PRINT TAB 
C11);AC2,2) 
250 PRINT:PRINT"G"A(1,3);: 



IF N0=2 THEN PRINT TAB 

(11);A(2,3); 
260 PRINT:PRINT"M";A(1,4);: 

IF N0=2 THEN PRINT TAB 

(11);A(2,4); 
270 PRINT:PRINT"N"A(1,5);: 

IF N0=2 THEN PRINT TAB 

C11);AC2,5); 
280 PRINT:PRINT"D"A(1,6);: 

IF N0=2 THEN PRINTTAB 

C11);AC2,6); 
300 PRINT:PRINT"CCTRL+6] 

PRECIOG ACTUAL: "ER; "SCI 

PORGKILO" 
400 PRINT'TCRSR dcha.3 

CCTRL+91CCTRL+73";A$CF!) 

500 PRINT'TCTRL+5:CCTRL+9]1 

CCTRL+O: CCTRL+1 IBUSQUEDA 

,DESARROLLO" 
510 PRINT'TCTRL+53CCTRL+932 

CCTRL+O:! CCTRL+1 1 EXPLORA 

CION,GANANCIA" 
520 PRINT"CCTRL+5:i:CTRL+9]3 

CCTRL+01 CCTRL+1 J AUM.HDE 

PROFUNDIDADC]ENC1200C] 

MTSC3" 
530 PRINT"CCTRL+5]CCTRL+934 

CCTRL+03 CCTRL+1 D CAMBIOCl 

OROC]ACDDOLARES" 
540 PRINT'TCTRL+53CCTRL+9:5 

CCTRL+03 CCTRL+1 : PASO" 
550 PRINT"CCTRL+9:CCTRL+33 

INTR0DUCEC3TUC1ELECCI0N" 

:P0KE198,0 
600 GET I$:IF I$=""THEN 600 
610 IF I$<"r' OR I$>"5" THEN 

600 
620 ON VAL(I$)GOSUB 1000, 

2000,3000,4000 
700 IF ACM,2)<0 THEN 7000 
710 ER=ER+INTCRND(1)*1000) 

-200 
718 J=0:K=0 
720 IF INT(RNDC1)*1600)-A 

(ivi,3)<0 THEN GOSUB 900 
740 ACM,1)=A(M,2)+ACM,3)*ER 
750 PRINT"CCTRL+1]CSHIFT+ 

CLR/HOMEl" 
790 NEXT M,N 
810 PRINT"CCTRL+13 

CSHIFT+CLR/HOMED" 
820 PRINT"CCRSR abajo] 

CCRSR abajoDCCRSR abajo3 

CCRSR abajo3CCRSR abajo] 

CCRSR abajoJ CCRSR dcha.D 



CCRSR dcha.JCCRSR dcha.] 
CCRSR dcha.]CCRSR dcha.II 

cctrl+3j cctrl+9] finalc3 
delc:juegocctrl+9: 

CCTRL+9] CCTRL+9: CCTRL+1 ] " 

830 print"tuc:riquezacdtotal 

C:dEC3":PRINTA$C1)"ESCJ 
DE"A(1,1) 

840 if n0=2then print tab(5) 
"riquezachtotalcddec:!" 
print a$(2)"c]s0n$" 

A(1,2) 
850 PRINT'TCRSR abajoD 

CCRSR abajoKCTRL+33 

CCTRL+9] PULSAC] ESPACI0C3 

PARAC3V0LVERC:AC3 

EMPEZARC3" 
860 POKE198,0 

870 IF PEEK CI 97) =64 THEN 870 
880 RUN 

900 print"cshift+clr/home: 

CCTRL+3D" 

905 JK=INTCRNDC1)*100)+50: 
if JK>A(M,3)THEN JK=A 
(M,3) 

910 PRINT"CCRSR abajoH 

CCRSR abajolCCRSR abajo] 
CCRSR abajoJCCRSR abajoJ 
CCRSR abajoDCCRSR abajo] 
CCRSR abajolCCRSR dcha.3 
CCRSR dcha.JCCRSR dcha.l 
CCTRL+9JCCRSR dcha.3 
CCRSR dcha.lCCRSR dcha.3 
CCRSR dcha.DCCRSR dcha.3 
CJC3C3HC1C]C:UCJC:C3RC3 

cinTCicDcno" 

915 FOR DE=1T0100:P0KE 36875 

,200+SIN(DE)*10:NEXT DE: 

POKE 36875,0 
920 PRINT"CCRSR abajo] 

CCRSR abajo] CCTRL+7:HAN 

C]SID0C]R0BAD0S"JK"KG": 

PRINT"DEC30R0" 
923 FOR DE=1 TO 3000: NEXT 
925 ACM,3)=ACM,3)-JK:ACM,1) 

=A(M,1)-CJK*ER) 
930 FOR F=0 TO 24: POKE 54272 

+F,0:NEXT 
940 POKE 54286,5: POKE 54290, 

16: POKE 54275,1: POKE 

54296,1 43: POKE 54278,240 
950 POKE 54276,65:FR=5389: 

FOR T=1 TO 150 
960 FQ=FR+PEEK(54299)*9.5: 

HF=INT(FQ/256):LF=FQ-HF* 
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iTi^Tfl-lr^-ar''&- ijr — **; 



256:P0KE 54272, LF 
965 POKE 54273, HF:NEXT:POKE 

54296,0 
970 PRINT'TSHIFT+CLR/HOMED 

CCTRL+13":RETURN 
1000 RETURN 
2000 RETURN 
3000 RETURN 
4000 RETURN 



En el pro grama del Commodore 64, 

las Iineas 1 a 5 definen los graficos del 
juego, con la subrutina que empieza 
en la Ifnea 60000 que define la explo- 
tacion de la cabecera de mina y las ex- 
cavaciones. En el caso del Vic 20 ne- 
cesitas 3K de RAM; ademas hemos 
renunciado a los graficos de aita reso- 
lucion en favor de los bloques graficos 
que Ueva incorporados la maquina. La 
linea 5 de ambos programas define los 
colores de pantalla y borra la misma. 
La linea 10 pregunta el numero dc ju- 
gadores, mientras que la linea 20 exa- 
mina si has tecleado un 1 o un 2. La 
Imea 30 asigna los valores de P y NO 
con arreglo al numero de jugadores 
que hayas tecleado. 

En la linea 40 se dimensionan dos 
matrices y se asigna el precio de mer- 
cado del ore, ER. En las Iineas 50 a 
54 se inicializan las matrices y se bo- 
rra la pantalla. Los valores almacena- 
dos en la matriz R informan al progra- 
ma de si se han iniciado o no los tra- 
bajos de mineria en el sitio que en ese 
momento esta considerando el juga- 
dor; cuando el valor de algtin elemen- 
to es cero, quiere decir que todavia no 
se ha iniciado la mineria en ese lugar. 
El primer par de elementos de la ma- 
triz A, contiene los activos totales de 
cada jugador, el segundo par contiene 
las cantidades en efectivo de cada ju- 
gador, el tercer par contiene las can- 
tidades de oro de cada jugador, el 
cuarto par contiene los costes de mi- 
neria, el quinto contiene el numero de 
minas y el sexto contiene la profundi- 
dad de la mina actual. La linea 70 in- 
vita al jugador o jugadores a introdu- 
cir su nombre o nombres, almacenan- 
do su respuesta en la matriz A$. 

El programa contiene un par de bu- 
cles FOR ... NEXT, que empiezan en 
la linea 200 y terminan en las Iineas 



790 y 800. Estos son los bucles que de- 
finen el menu principal de opciones y 
la presentacion de los ingresos de la 
compania debidos a la mineria, los 
costes de extraccion, etc. 

La variable N cuenta el numero de 
pasadas reahzadas por el jugador. La 
variable NO sirve para asegurarse de 
que ambos jugadores llegan hasta 30 
pasadas. Mas adelante el programa 
utiliza estas mismas variables para ase- 
gurarse de que se presentan los acti- 
vos de ambos jugadores, etc. 

En la linea 202 se definen los colo- 
res de la pantalla. La Iinea 205 inicia- 
liza los registros de sonido, dejando- 
los listos para los efectos sonoros que 
se produciran mas adelante en el pro- 
grama. La linea 210 presenta el titulo 
del juego: MINA DE ORO. La linea 
220 es la encargada de presentar el 
nombre o nombres de los jugadores. 
Cuando se elige la opcion de dos ju- 
gadores, solo se presenta el apellido. 

Las Iineas 230 a 300 presentan los 
valores de ACTIVOS TOTALES, 
CAJA EFECTIVO, CANTIDAD EN 
ORO, COSTES DE MINERIA, NU- 
MERO DE MINAS, PROFUNDI- 
DAD DE LA MINA Y PRECIO 
DEL ORO. Si hay dos personas ju- 
gando, se presentan los valores de am- 
bos en los lugares apropiados, exami- 
nando los valores de la variable NO. 
En el programa del Vic 20, las infor- 
maciones sobre los activos y el estado 
de las minas se abrevian a una sola le- 
tra, debido al pequeiio tamaiio de la 
pantalla. 

La linea 400 presenta el nombre del 
jugador al que le toca el turno en cada 
momento. Las Ifneas 500 a 540 le brin- 
dan al jugador las opciones Investiga- 
cion y DesarroUo, Exploracion e In- 
forme, incremento de la profundidad 
de la mina en 200 metres, precio del 
oro en dolares o pasar. La linea 550 in- 
vita al jugador a que teclee una ins- 
truccion. 

Las Iineas 600 a 620 utilizan la fun- 
cion INKEY$ para tenet en cuenta la 
eleccion del jugador, comprobar que 
se trata de una eleccion valida y 11a- 
mar a la subrutina encargada de su 
procesamiento. 

La linea 700 examina si el valor to- 
tal de los activos ha caido por debajo 



de cero, forzando un salto a la rutina 
de «final de juego» cuando asi ocurre. 
En el proximo capitulo veremos la li- 
nea 7000 y siguientes. La linea 710 in- 
troduce fluctuaciones aleatorias en el 
precio del oro, por lo que tienes que 
tener cuidado para vender tu oro en 
un momento en que su precio te per- 
mita hacer una operacion favorable. 

La linea 720 establece una compa- 
racion entre un numero aleatorio y la 
cantidad de oro almacenada en tus ca- 
maras acorazadas, al objeto de decidir 
si va a haber un robo o no; observa 
que son mayores las probabiHdades de 
que ocurra un robo cuando tienes gran 
cantidad de oro que cuando tienes una 
cantidad pequefia. La rutina de robo 
se extiende desde la linea 900 hasta la 
940. La linea 905 elige la cantidad de 
oro que ha side robada y la 920 se ocu- 
pa de presentar dicha cantidad en la 
pantalla. 

La linea 740 calcula el valor total de 
los activos, sumando al valor de efec- 
tivo en caja el valor resultante del oro 
al precio vigente en cada momento. 
La linea 350 inicializa los colores de la 
pantalla, borrandola antes de que la 
instruccion NEXT en vie nuevamente 
el programa a la linea 200, dejandolo 
listo para la siguiente pasada. 

Las Iineas 810 a 840 constituyen la 
rutina de «juego terminado», que se 
utiliza cuando el active total de uno de 
los dos jugadores ha caido por debajo 
de cero. La rutina presenta el estado 
financiero de ambos jugadores des- 
pues de presentar el mensaje de FIN 
DE JUEGO. 

Finalmente las Iineas 850 a 880 son 
una rutina de ^quieres jugar otra vez? 

En el proximo capitulo veremos una 
serie de subrutinas que hacen que el 
juego resulte realmente adictivo. Ve- 
remos una rutina que permitira redu- 
cir tus costes de mineria por medio de 
la investigacion y desarrollo, leer un 
informe relative a las prospecciones 
realizadas en una mina, realizar exca- 
vaciones en la misma, escalonadas por 
etapas y cambiar tu oro por dolares. 

Ademas veremos todos los datos 
que necesitaras para dibujar los grafi- 
cos que ilustran el estado de las minas 
de oro y el progreso realizado por las 
excavaciones. 
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ff 



Vi\ 



IGUAL QUE EL REY 
MIDAS 



INVESTIGACION Y DESARROLLO DE 



NUEVOS METODOS EN MINERIA 

EXPLQRACION DE NUEVAS MINAS 

EL INFORME SOBRE LA MINA 

PERFORACION DE LA MINA 



Ha llegado el momento de que te ha- 
gas rico rapidamente. iPero, has in- 
vertido en nuevas tecnologias antes de 
comenzar la exploracion? ^Como in- 
terpretas el resultado? ^Y eu^l es el 
mejor momento para vender? Tendras 
que ser bastante perspicaz en la Mina 
de Oro. 

Ya has visto en la primera parte de 
este juego como definir las distintas 
opciones que se ofrecen al jugador: 
Investigacion y DesarroUo, Explora- 
cion e Informe, Aumento de la Pro- 
fundidad de la Mina y Cambio de Oro 
por Doiares. Ahora puedes completar 
tu programa de la Mina de Oro con 
las subrutinas que manejan cada una 
de estas opciones. 

Investigacion y Desarrollo es la ac- 
tividad que corresponde a la seleccion 
de la opcion 1, Exploracion Previa e 
Informe es la opcion 2, Aumento de 
la Profundidad de la Mina es la opcion 
3 e Intercambio de Oro por Doiares 
es la opcion 4. La opcion 5 correspon- 
de a pasar sin hacer nada, por lo que 
para ella no se requiere una subrutina 
completa. Las opciones 1, 2 y 4 intro- 
ducen los elementos de aleatoriedad 
requeridos para que el juego se parez- 
ca de verdad al mundo real. 



INVESTIGACION Y DESARROLLO 



para Commodore-64 



1000 



1010 



INVERTIRC]C$)":INPUT RD 

1030 R1=INT(RD*.5)-1 

1050 A(M,4)=ACM,4)-R1 

1060 IF ACM, 4X0 THEN ACN,4) 
=0 

1080 ACM,2)=ACM,2)-RD:ACM,1) 
=A(M,1)-RD 

1100 PRINT"CCRSR abajolECRSR 
abajoJECRSR abajoHCCRSR 
abajoIICCRSR abajoKCRSR 
dcha.DECRSR dcha.DCCRSR 
dcha,]CCRSR dcha.aELC;] 

costoeddegexcavacione: 

ESC]DEE3:":PRINT"$";R1 

+1; 
1110 print"para[:20o::mt": 

for z=1 to 2300:next 

1120 RETURN 



pwr; 



Vic-20 



La linea 1000 define los colores de 
la pantalla y borra esta. A continua- 
cion la linea 1010 define la cabecera 
de pantalla antes de que la linea 1020 
pregunte al jugador cuanto dinero 
quiere invertir en Investigacion y De- 
sarrollo; rd es la cantidad elegida. 

La linea 1050 disminuye los costes 
de mineria en una cantidad relaciona- 
da con el voluraen de la inversion en 
Investigacion y Desarrollo. En la linea 
1060 se comprueba que los costes de 
mineria no se hacen negativos. La li- 
nea 1080 ajusta los activos en metali- 
co y totales para tener en cuenta la 
cantidad invertida en I + D. 

La cantidad en que se ven reduci- 
dos los costes de mineria se presenta 
en la linea 1110. La linea 1110 contie- 
ne un bucle FOR ... NEXT para in- 
troducir un pequerio retardo antes de 
que finalice la subrutina. 



2000 



POKE 53280,7:P0KE 53281 
,7:PRINT"CCTRL+1KSHIFT 
+CLR/H0ME3" 
PRINT'TCRSR abajo3 
BUSQUEDA:3Y[] DESARROLLO 
":PRINT"(PARAnDISMINUIR 
DLOSnCOSTOS)" 
1020 PRINT'TCRSR abajoDCCRSR 
abajo^ECRSR abajoDCCRSR 
abajoDCCRSR abajo] 
CUANTOGQUIERESn 



1000 PRINT"CCTRL+1] 

CSHIFT+CLR/HOME]" 
1010 PRINT'TCRSR abajo3 

busqueda,[:: desarrollo": 
print'tctrl+3: cctrl+9] 
para:]disminuirc]los[] 

COSTOS" 
1020 RD=0:PRINT'TCTRL+73 

CCRSR abajoDCCRSR abajo3 

CCRSR abajo] CCRSR abajoD 2030 

CCRSR abajolCUANTOC:! 

QUIERESC^INVERTIRCKENC] 

$)":INPUT RD 
1030 R1=INT(RD*.5)-1 
1050 AC|V1,4)=A(M,4)-R1 
1060 IF ACM, 4X0 THEN A(M,4) 

=0 
1080 A(IV|,2)=A(M,2)-RD:ACM,1) 

=ACM,1)-RD 
1100 PRINT'TCRSR abajol 

CCRSR abajoHCCRSR abajo] 

CCRSR abajoJLCRSR abajoD 

LOSCJCOSTOSCDVIENENCl 

REDUCIDOSC: : ":PRINTR1+1 

;"$C]PARAC:200 M" 
1110 FOR Z=1 TO 2300:NEXT 
1120 RETURN 



EXPLORACION E INFORME 



J para Commodore-64 

POKE 53280,5 :P0KE 53281 

^5:PRINT'TSHIFT+CLR/ 

HOMElCCTRL+13"; 

RCM)=0:CCM,1)=INT(RNDC1 

)*90)+10:C(M,2)=INT(( 

RND(1)*5)+2)*200 

C(M,3)=INT(RNDC1)*200)+ 

1:LL=INTCRND(1)*3)-1 

C(M,4)=CCM,2)+LL*200 

CCM,5)=0:KK=INT(RNDC1)* 

100):IF KK<CCM,1) THEN 

C(M,5)=1 

PRINT'TCTRL+31CCTRL+9J 

CCRSR abajoBCCRSR abajo 

][CRSR dcha.^CCRSR 

dcha.JCCRSR dcha.DCCRSR 

dcha.DCCRSR dcha.lCCRSR 

dcha-:!i:3RELACI0NCn 

CIENTIFICAC:" 

PRINT'TCRSR abajo3 CCRSR 

abajoDCCRSR dcha.:]CCRSR 



2031 

2050 
2070 



2080 



2081 



118 INPUT Juegos 



i^®@c^iiitiB3Q®tta ©a 2}m^m 



dcha.DCCRSR dcha.^CCRSR 
dcha.nCCRSR dcha.3 

propabilidadcdde:: 

HALLARnORO=";C(Iv!,1)'7." 

2082 PRINT'TCRSR abajoKCRSR 
abajoDCCRSR dcha.^CCRSR 
dcha.IirCRSR dcha.^CCRSR 
dcha.UCCRSR dcha.3 
PROFUNDIDAD[]ESTIMADA=" 
;C(M,2);"M" 

2083 PRINT'TCRSR abajoDCCRSR 
abajoDCCRSR dcha.XCRSR 
dcha.^rCRSR dcha.JCCRSR 
dcha.DCCRSR dcha.H 
CANTIDADC3ESTIMADA";CCM 
,3) "KG" 

2100 Z=INT(RNDC1)*150000):A( 
M,2)=ACM,2)-Z:ACM,1)=AC 
M,1)-Z 

2110 PRINT'TCRSR abajolCCRSR 
abajoJCCRSR abajolCCTRL 
+3]QUIERESnSEGUIRn] 
EXCAVANDO(S/N)?" 

2120 GET R$:IF R$<>"S" AND 
R$<>"N" THEN 2120 

2130 IF R$="S" THEN A(M,6)=0 
:RCm=1:G0 TO 3000 

2500 RETURN 



para Vic-20 

2000 print'Tshift+clr/home: 

CCTRL+ll" 

2030 RCM)=0:CCM,1)=INT(RND 
(1)*90)+10:CC[V|,2)=INTC 
CRNDC1)*5)+2)*200 

2031 CCM^3)=INT(RND(1)*200) 
+1:LL=INT(RND(1)*3)-1 

2050 C(M,4)=CCM,2)+LL*200 
2070 C(M^5)=0:KK=INTCRNDC1) 

*100):IF KK<C(M^1)THEN 

C(M,5)=1 

2080 PRINT'TCTRL+33CCTRL+93 
CCRSR dcha.KCRSR dcha.] 

relaciongcientifica:]" 

2081 PRINT"CCTRL+7] 

CCRSR abajoKCRSR abajo] 
CCRSR abajoDPROBABILIDAD 

c:deC]encontrarc:oro="; 

C(M,1)"%" 

2082 PRINT'TCRSR abajoJ 
CCRSR abajo:PROFUNDIDAD 
C]ESTIMADA=";C(M,2);"M" 

2083 PRINT"CCRSR abajoD 
CCRSR abajoHCANTIDADG 



ESTIMADA";C(M,3)"KG" 
2100 2=INTCRND(1)*150000):A 
(M,2)=A(M,2)-Z:ACM,1)= 

ACM,1)-Z 
2110 PRINT"CCRSR abajo3 

CCRSR abajoDCCRSR abajo] 
CCTRL+3]QUIERESC1SEGUIR 

c:excavando(s/n)?" 
2120 get r$:if r$<>"s"and r$ 

<>"N"THEN 2120 
2130 IF R$:="S"THEN ACM,6)=0: 

R(M)=1 :G0TO 3000 
2500 RETURN 

En la linea 2000 se borra la panta 
Ua y se cambian sus colores. La linea 
2030 pone a cero r(ni) para indicar que 
todavia no ha empezado la excava- 
cion. En esta linea tambien se deter- 
mina la probabilidad de encontrar 
ore, el valor esperado de la profundi- 
dad y la cantidad esperada. La varia- 
ble 11 es un numero aleatorio compren- 
dido entre 1 y -1, el cual se utiliza en 
la Iinea siguiente a fin de determinar 
la profundi dad real del oro; recuerda 
pues que el valor de C(M,2) es preci- 
samente el valor esperado de la pro- 
fundidad. 

La linea 2050 asigna a C(M,4) un 
valor igual a C(M,2) mas o menos 200 
metros (200 veces U). Seguidamente la 
linea 2070 decide si la mina contiene 
realmente algo de oro. Se le asigna a 
C(M,5) el valor para indicar que no 
hay oro. KK es un numero aleatorio 
comprendido entre y 99. KK se com- 
para con la probabilidad de encontrar 
oro, si KK es menor, entonces C(M,5) 
se pone a uno para indicar que hay oro 
en la mina. 

La linea 2080 presenta al jugador el 
informe cientifico de la mina. Aunque 
al jugador se le dice la probabilidad de 
que encuentre oro y la profundidad 
mas probable, el que esto ocurra real- 
mente depende de varios factores 
aleatorios. En consecuencia deberas 
utilizar tu propio juicio para determi- 
nar si la inversion merece la pena o 
no. 

Ocupemonos ahora de las malas no- 
ticias: el informe hay que pagarlo. Es 
imposible predecir lo que costara, 
pero puede ser un valor comprendido 
entre nada y 150.000 dolares; este es 
el valor de Z elegido en la linea 2100. 



El coste de la exploracion y el infor- 
me hay que deducirlo de la disponibi- 
lidad en efectivo, y esta deduccion 
aparecera tambien en los activos tota- 
les. 

En este momento al jugador se le 
ofrece la posibihdad de iniciar las ex- 
cavaciones. En la linea 2110 se hace la 
pregunta ^- SE INICIAN LAS EXCA- 
VACIONES? Si la respuesta es si, el 
programa salta a la rutina de mineria 
que empicza en la linea 3000. 

EXCAVACION 



H^g]^^ para Commodore-64 

3000 POKE 53280,7:POKE 5328 
1,7 

3010 if rcm)<>0 then 3020 

3011 print'Tshift+clr/home: 

CCRSR abajo^CCRSR 
abajo]CCRSR abajo] 
CCRSR abajo^CCRSR 
abajoUCCRSR abajoDCCRSR 
abajoDCCRSR abajolCCRSR 
abajo!ICCRSR dcha.DCCRSR 
dcha.:CCRSR dcha.KCTRL 

+9: ccom+~: g auncdnoc: 

HASC]EXPLORADO!":FOR Z 
=1 TO 2300:NEXT:RETURN 
3020 POKE 53280,3:POKE 53281 
,5:PRINT"CSHIFT+CLR/ 

home:cctrl+1]" 

3022 PRINT TABC14);'TSHIFT+ 
D3CSHIFT+E1CSHIFT+F]": 
PRINT TABC14);'TSHIFT+ 
GDCSHIFT+HDCSHIFT+n 
CSHIFT+J]":PRINT TAB 
C13);"CC0MM+K]CSHIFT+L: 
CSHIFT+mCSHIFT+N] 
CSHIFT+O]" 

3025 FOR Z=0 TO 39: PRINT" 
CSHIFT+Ar';:NEXT 

3060 PRINT'TCLR/HOMEKCRSR 

abajonCCRSR abajo] CCRSR 
abajo]CCRSR abajo]CCRSR 
abajolCCRSR dcha-]";: 
FOR Z=100 TO 1400 STEP 
100:PRINT TABC5-LEN 
CSTR$(Z)));Z:NEXT 

3090 ACM,2)=ACM,2)-A(M,4):A( 
M,1)=A(M,1)-ACM,4):ACIVI, 
6)=A(M,6)+200 

3095 FOR F=0 TO 90:NEXT 

3100 PRINT"CCLR/HOME]CCRSR 
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abajoDCCRSR abajoirCRSR 
abajoJCCRSR abajoKCRSR 
dcha.DCCRSR dcha.JCCRSR 
dcha.lCCRSR dcha.3[CRSR 
dcha.irCRSR dcha.DCCRSR 
dchaJCCRSR dcha.KCRSR 
dcha,:rCRSR dcha.IICCRSR 
dcha.nCCRSR dcha.DCCRSR 
dcha.lCCRSR dcha.:!CCRSR 
dcha.lCSHIFT+Cl" 

3101 PRINT"CSHIFT+W]CCRSR 
dcha.JCCRSR dcha.JCCRSR 
dcha.KCRSR dcha.DCCRSR 
dcha.:i:CRSR dcha.KCRSR 
dcha.KCRSR dcha.DCCRSR 
dcha.DCCRSR dcha.DCCRSR 
dcha.nCCRSR dcha.^CCRSR 
dcha.DCCRSR dcha.:[CRSR 
dcha.:CSHIFT+B]" 

3102 FOR F=2 TO A(M,6)/100: 
PRINT'TCRSR dcha.3CCRSR 

■'"■■ dcha.lCCRSR dcha.^CCRSR 
dcha.^CCRSR dcha.DCCRSR 
dcha.DCCRSR dcha.DCCRSR 



dcha.]CCRSR 
dcha.DCCRSR 
dcha.DCCRSR 
dcha.D 



dcha.lCCRSR 

dcha.JCCRSR 

[ dcha.DCCRSR 

. dchaJCCRSR 

i:SHIFT+-l" 

3104 POKE 54272 ^33: POKE 
54273,33 :POKE 54277,15: 
POKE 54296,15 

3105 POKE 54276, 129:F0R Z=^1 
TO 240:NEXT 

3110 NEXT:POKE 54296,0 
3120 IF A(M,6)=CCM,4) AND C( 
M,5>=1 THEN 3500 

3130 PRINT"CCLR/H0ME3eCRSR 
abajoDCCRSR abajoDCCRSR 
abajoDCCRSR abajoDCCRSR 
abajolCCRSR abajoJCCRSR 
abajoDLCRSR abajoKCRSR 
abajo3CCRSR abajoKCRSR 
abajoKCRSR abajo3CCRSR 
abajoDCCRSR abajoDCCRSR 
abajoKCRSR abajoDLCRSR 
abajoDCCRSR abajoHCCRSR 
abajo3[:CTRL+7KCRSR 
dcha.nCCRSR dcha-HCCRSR 
dcha.DCCRSR dcha.lCCRSR 
dcha.nCCRSR dcha.lCCRSR 
dcha.JCCRSR dcha.JCCRSR 
dcha.K:AUNC]N0i::HAY:3 
ORO! !" 

3131 IF ACM,6)<>CCM,2)+200 



3132 



3134 
3140 
3300 
3500 



3505 



THEN 3140 

PRINT'TCRSR dcha.^CCRSR 

dcha.3CCTRL+i:ClESTAC] 

MINADNOniTIENEC^ORO, 

nPRUEBAC:iCONi::OTRA." 

A(M,6)=0:RCM)=0 

FOR F=1 TO 2500:NEXT 

RETURN 

PRINT'TCLR/HOME^CCRSR 

abajoKCRSR abajolCCRSR 

abajor':FOR Z=1 TO ACM, 

6)/100:PRINT:NEXT 

PRINT'TCRSR dcha.JLCRSR 



3510 

3520 

3530 
3540 

3550 



3560 
3570 



3580 



dcha.3CCRSR 
dcha-lCCRSR 
dcha.KCRSR 
dcha.^CCRSR 
dcha.:CCRSR 



dcha.DCCRSR 

dcha.DCCRSR 
dcha.DCCRSR 
dcha.3:CRSR 
dcha.DCCTRL 



+33CCTRL+9:ino[]RGOa" 

FOR F=54272 TO 54296: 

POKE F,0:NEXT 

POKE 54284,1 5: POKE 

54283,17:P0KE 54296,14 

FOR F=64 TO 124 

POKE 54280,F:F0R G=1 TO 

20:NEXT:NEXT 

FOR F=124 TO 64 STEP-1 : 

POKE 54280, F: FOR G=1 TO 

20:NEXT:NEXT 

POKE 54296,0 

A(M,5)=A(M,5)+1:ACM,3)= 

ACM,3)+CCM,3):ACM,1)=A 

CM,1)+ACM,3)*ER 

ACM,6)=0:RCM)=0:G0 TO 

3300 



3090 



3095 
3100 



I't:-:-; ;.:;=: -j para Vic-20 

3000 POKE 35879,25 

3010 IF RCM)<>0 THEN 3020 

3011 PRINT'TSHIFT+CLR/HOME] 
CCRSR abajoimCRSR abajoD 
CCRSR abajoJCCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoDCCRSR abajo!] 
CCRSR abajo:CCOMM+-K: 
AUNC3NOC3HASCDEXPLORADO 
!":FOR Z=1 TO 2300:NEXT 
:RETURN 

3020 PRINT"CSHIFT+CLR/H0ME3 
CCTRL+3: CCRSR abajoD" 

3022 PRINT TAB(14);"CCTRL+9] 
CSHIFT+SnCCOMM+*J": 
PRINT TAB(14);"CCTRL+7D 
CCTRL+93CSHIFT++1 
CCOMM+G: CCTRL+OD CCTRL+1 ] 



CSHIFT+I]" 

3025 FOR ZZ=1 TO 15:F0R Z=0 
TO 20:PRINT'TCTRL+9D!::" 
;:NEXT:PRINT:NEXT 

3060 PRINT"CCLR/HOME] 

CCRSR abajo] CCRSR abajo] 

CCRSR abajo]CCRSR abajo] 

CCRSR abajo]"; :F0R Z= 

100 TO 1400 STEP 100: 

PRINT"CCTRL+9]"Z:NEXT 

ACM,2)=ACM,2)-ACM,4):A 

(M,1)=ACM,1)-ACM,4):A(M 

,6)=ACM,6)+200 

FOR F=0 TO 90:NEXT 

PRINT"CCLR/HOME] 

CCRSR abajo] CCRSR abajo] 

CCRSR abajo]CCRSR abajo] 

"SPCC15)"CCTRL+9] 

[SHIFT+-]" 

FOR F=2 TO ACM,6)/100: 

PRINT SPCC15)"CCTRL+9] 

CSHIFT+-]":P0KE36877, 

128+F*3 

FOR DE=5 TO 15 STEP. 3: 

POKE 36878, DE:NEXT:POKE 

36877,0 

POKE 54276,1 29: FOR Z=1 

TO 240:NEXT 

NEXT 

IF A(M,6)=C(M,4) AND 

CCM,5)=1 THEN 3500 

PRINT'TCLR/HOME] 

CCRSR abajo] CCRSR abajo] 

CCRSR abajo] CCRSR abajo] 

CCRSR abajo]i:CRSR abajo] 

CCRSR abajo]CCRSR abajo] 

CCRSR abajo]CCRSR abajo] 

CCRSR abajo] CCRSR abajo] 

CCRSR abajo]CCRSR abajo] 

CCRSR abajo]CCRSR abajo] 

CCRSR abajo]CCRSR abajo] 

CCRSR abajo] CCTRL+7] 

CCTRL+9]CCRSR dcha.] 

CCRSR dcha.]CCRSR dcha.] 

CCRSR dcha.]YAC]NOC]HAY 

C]ORO!!" 

3131 IF ACM,6)<>C(M,2)+200 
THEN 3140 

3152 PRINT'TCTRL+1] 

CCRSR dcha.]CCRSR dcha.] 

ESTAC]MINAC]NOC]TIENEC] 

0RO,C]PRUEBAC]CONC]0TRA.' 

3134 A(M,6)=0:R(M)=0 

3140 FOR F=1 TO 3000:NEXT 

3300 RETURN 

3300 RETURN :REM**CONTINUARA** 



3102 



3104 



3105 

3110 
3120 

3130 
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EN GASTELLAITO 

COMMODORE 64 







El juego de maquinas de la calle que tuvo mas 6xito, atiora en 
tu casa: El ixusmo juego, con los mismos gr^cos y musica. 



b^lKJig 




COMPACTANDO 
LA MUSICA 




COMPRIMIENDO LAS MELODIAS 



PROGRAMACION DE UN BLUES 



DE 12 COMPASES 



FRAGM ENTOS REPETID OS 
UTILiZA MENOS NOTAS 



Puedes aumentar la capacidad mu- 
sical de tu ordenador reduciendo los 
datos necesarios para las melodias. 
Tambien puedes utilizar esta misma 
tecnica para comprimir otros tipos de 
datos. 

Un trozo musical, aunque sea una 
melodia muy scncilla, ejecutado sobre 
tu ordenador, puede constituir una ex- 
pericncia la mar de estimulante, espe- 
cialmente si has compuesto y progra- 
mado la musica tu mismo. Natural- 
mente, existen dificultades que debes 
superar, una de las cuales es precisa- 
mente la gran cantidad de datos, po- 
siblcmente dos o tres pantallas reple- 
tas, que se rcquieren para programar 
una cancion tipica. Aparte de lo tedio- 



so que resulta teclear dichos datos, se 
ocupa una gran cantidad de memoria. 
En este articulo veremos algunas tcc- 
nicas sencillas de compresion de da- 
tos, que te permitiran almacenar can- 
clones dentro de tus programas en 
BASIC, sin tener que ocupar grandes 
porciones de la RAM de usuario. 

Como es natural, la neccsidad de 
comprimir al maximo la cantidad de 
datos, de modo que ocupen el manor 
espacio posible, no esta limitada uni- 
camente a la generacion de trozos mu- 
sicales. Las tecnicas descritas en este 
articulo se pueden utilizar para com- 
primir datos utilizados en otras aplica- 
ciones, en el supuesto de que los da- 
tos, o bien sean repetitivos o utilicen 
solo un margen restringido de valor es. 



CANTANDO BLUES 



La mayoria de las canciones, cual- 
quiera que sea su estilo musical, tie- 
nen una analoga estructura que Ueva 

por si sola a la compresion de datos . 
Supongamos por ejemplo que quieres 
ejecutar una sencilla melodia de blues 
de 12 compases do extension. Lo mas 
probable es que escribas un programa 
en el que se almacenan secuencial- 
mente los valores de altura de los so- 
nidos dentro de sentencias DATA. 
Teclea y ejecuta el siguiente programa 
para escuchar una de estas melodias; 



para Commodore-64 

10 S=54272:F0R Z=S TO S+2A: 




Programooon 



POKE Z,0:NEXT Z:T=100 
20 POKE S+5,0:POKE S+6,240: 

POKE S+24,1 5: RESTORE 
30 READ K,KK:IF K=-1 THEN 20 
45 POKE S+4,33:P0KE S+1 1,129 
50 POKE S+1,K:P0KE S,KK 
60 FOR Z=1 TO T:NEXT Z 
70 POKE S+4,32:G0T0 30 
100 DATA 8,97,8,97,9,247^10, 

143,12,143,12,143,14,24, 

12,143 
110 DATA 8,97,16,195,14,239, 

14,24,12,143,11,48,10, 

143,9,104 
120 DATA 8,97,8,97,9,247,10, 

143,12,143,12,143,14,24, 

12,143 
130 DATA 8,97,16,195,14,239, 

14,24,12,143,11,48,10, 

143,9,104 
140 DATA 11,48,11,48,13,78, 

14,24,16,195,16,195,18, 

209,16,195 
150 DATA 11,48,16,195,14,239 

,14,24,12,143,11,48,10, 

143^9,104 



160 DATA 8,97,8,97,9,247,10, 

143,12,143,12,143,14,24, 

12,143 
170 DATA 8,97,16,195,14,239, 

14,24,12,143,11,48,10, 

143,9,104 
180 DATA 12,143,12,143,15, 

210,16,195,18,209,18,209 

,16,195,15,210 
190 DATA 11,48,11,48,13,78, 

14,24,16,195,16,195,13, 

78,14,24 
200 DATA 8,97,8,97,9,247,10, 

143,12,143,12,143,14,24, 

12,143 
210 DATA 8,97,16,195,14,239, 

14,24,12,143,11,48,10, 

143,9,104 
999 DATA -1,0 

para Vic-20 

10 S=36874:F0R Z=S TO S+4: 

POKE Z,0:NEXT Z:T=200 
20 POKE S+4,15: RESTORE 
30 READ K:IF K=-1 THEN 20 
50 FOR Z=0 TO 2: POKE S+Z,K: 

NEXT Z 
60 FOR Z=1 TO T:NEXT Z 
70 FOR Z=0 TO 2: POKE S+Z,0: 

NEXT Z:GOTO 30 
100 DATA 173,173,185,189,200 

,200,206,200 
110 DATA 173,214,208,206,200 

,192,189,181 
120 DATA 173,173,185,189,200 

,200,206,200 
130 DATA 173,214,208,206,200 

,192,189,181 
140 DATA 192,192,203,206,214 

,214,218,214 
150 DATA 192,214,208,206,200 

,192,189,181 
160 DATA 173,173,185,189,200 

,200,206,200 
170 DATA 173,214,208,206,200 

,192,189,181 
180 DATA 200,200,211,214,218 

,218,214,211 
190 DATA 192,192,203,206,214 

,214,203,206 
200 DATA 173,173,185,189,200 

,200,206,200 
210 DATA 173,214,208,206,200 

,192,189,181 
999 DATA -1 



A diferencia de lo que ocurrc con 
otros micros, los datos de los Commo- 
dore tienen una longitud doble, debi- 
do a que cada nota se especifica me- 
diante dos valores que dan su tono, 
uno contenido en el byte alto y otro 
en el byte bajo. 

La variable T establece un factor 
temporal para controlar la velocidad 
de ejcucion de la melodia. La linea 20 
pone el puntero de datos en la prime- 
ra linea de datos y despues el progra- 
ma entra en un bucle entre las lincas 
30 y 70, leyendo los valores del tono 
de los sonidos, que corresponden a los 
niimeros de las sentencias DATA y 
pasando a las sentencias de sonido de 
las lineas 40 a 70. La linea 30 sirve 
para detectar el final de la melodia, 
que esta marcado por el numero —1 
elegido arbitrariamente. 

Si quieres programar un silencio en 
algiin punto de la melodia, puedes in- 
sertar otro valor arbitrario (por ejem- 
plo 254) e incluir una prueba en la li- 
nea 40 para detectarlo. Si el resultado 
de dicha prueba es positivo, el progra- 
ma saltara a una linea que establece 
un retardo, devolviendo despues el 
control a la linea 30 para continuar 
con la musica. 

Tal como esta ahora el programa, 
lo que hace es pasar los valores de afi 
nacion a la seccion del micro encarga- 
da del manejo de los sonidos, en la 
cual son ejecutados secuencialmente, 
tal como aparecen en las lineas de los 
datos, 

Aunque este programa funciona 
muy bien, no tienes mas que echar un 
vistazo al listado para ver que, incluso 
para una melodia tan sencilla como 
esta, se requieren una gran cantidad 
de datos. Esto resulta tedioso de te- 
clear y ocupa una nada despreciable 
cantidad de memoria. 

Hay ademas otro inconveniente: 
mientras las sentencias DATA estan 
siendo procesadas (es decir mientras 
se esta ejecutando la melodia) el mi- 
cro no puede realizar ninguna otra ta- 
rea. 

Algunos micros resuelven parcial- 
mente este problema con ayuda de un 
buffer de sonidos que puede contener 
datos de hasta seis sentencias de soni- 
do. Si el buffer tiene suficientemenic 



INPUT ^t 



espacio para almacenar todos ios da- 
tos usados en una melodia particular. 
el ordenador es libre de continuar con 
cualquier otra tarea; pcro tambien en 
este caso, mientras haya que procesar 
sonidos, el micro debe estar atendien- 
do a su procesamiento. Ademas el 
buffer de sonidos no hace nada para li- 
berarte de la tediosa tarea de introdu- 
cir Ios datos, o para reducir la canti- 
dad de memoria requerida. 

For todo ello lo que realmente nc- 
cesitas, aparte de )a solucion obvia de 
escribir melodias muy cortas, es en- 
contrar alguna forma de compactar o 
comprimir Ios dates para que ocupen 
poco espacio y para que scan mas ra- 
pidos su introduccion y procesamien- 
to. 




OBSERVA LA TENDENCIA 



La compresion de datos se basa en 
que Ios datos esten organizados con 
una o varias tendencias. Cuantas mas 
de estas tendencias seas capaz de iden- 
tificar, mayor sera el grado de com- 
presion que podras lograr. 

El primer paso para analizar las ten- 
dencias dentro de Ios datos de una me- 
lodia es ejecutarla realmente o escu- 
charla en algun instrumento, intentan- 
do identificar Ios pasajes que se parez- 
can. Escribe la linea melodica sobre 
un papel, ignorando Ios pentagramas, 
las indicaciones de tiempo y Ios dcmas 
signos musicales; concentrate linica- 
mente en la altura de cada sonido. 



Resulta muy sencillo escribir se- 
cuencialmente el nombre que corres- 
ponde a cada sonido a medida que va 
apareciendo en la cancion, disponien- 
dolos sobre una linea recta. Cuando 
todas las notas tienen la misma dura- 
cion, por ejemplo una parte de un 
compas, la cosa es facil; pero ^que su- 
cede cuando una nota se prolonga mas 
de una parte de un compas? El pro- 
grama es mucho mas sencillo si todas 
las notas tienen la misma duracion, es 
decir si se le asigna a T un valor cons- 
tante. Si se permite que el valor de T 
cambie de una nota a otra, ademas del 
tono tienes que almacenar la duracion 
de cada nota, con lo que se duplica la 
cantidad de datos. Para tener en cuen- 
ta las notas que se prolongan durante 




mas de una parte de compas, puedes 
simplemente introducir la misma nota 
mas de una vez; por ejemplo si una 
nota dura tres partes de un compas 
puedes introducir el mismo valor del 
tono tres veces. 

Despues que hayas escrito la melo- 
dfa del blues obtendras algo parecido 
a la tabla 1 

Si estudias con cuidado la tabla an- 
terior, podras observar que esta com- 
puesta de cinco series diferentes de 
notas o «mini~melodias», casi todas 
ellas repetidas varias veces, tal como 
se muestra en la tabla 2: 

Ahora ya dispones de un metodo 
para la compresion de datos; en lugar 
de teclear todas las veces todas las no- 
tas de cada una de las frases o mini- 



TabLa 1 

SoL1 SoL1 La#1 Si1 Re1 Re1 Mil Rel Soli 

SoL2 Fa1 Mil Rel Dol Si1 Lai 

Soli Soil La#1 Si1 Rel Re1 Mil Re1 SoLI 

SoL2 Fa1 Mil Rel Do1 Si1 Lai Do1 Dol 

Re#1 Mil SoL2 SoL2 La2 SoL2 Do1 SoL2 Fa1 

Mil Rel Do1 Sil Lai 

SoLI SoL1 La#1 Sil Rel Rel Mil Rel SoLI 

SoL2 Pal Mil Rel Dol Sil La1 

Re1 Re1 Fa#1 SoL2 La2 La2 SoL2 Fa#1 Dol 

Dol Re#1 Mil SoL2 SoL2 Re#1 Mil 

Soil Soil La#1 Sil Re1 Re1 Mil Re1 SoLI 

Sol2 Fa1 Mil Rel Do1 Si1 Lai 

TabLa 2 

T1=SoL1 Soil La#1 Si1 Re1 Re1 Mil Rel SoLI 
T2=SoL2 Fa1 Mil Rel Del Sil Lai 

T3=Do1 Dol Re#1 Mil SoL2 SoL2 La2 SoL2 Dol 

T4=Re1 Rel Fa#1 SoL2 La2 La2 SoL2 Fa#1 

T5=Do1 Dol Re#1 Mil SoL2 SoL2 Re#1 Mil 




'*ii. 




MAS DE UNA 
MELODIA 

Como ejercicio puedes inten- 
tar codificar otras canciones 
para el ultimo programa. Inten- 
ta primero sumar unas tres can- 
ciones. Calcula las sencuencias 
maestras y las frases componen- 
tes y a continuacion almacenalas 
en sentencias DATA. Tendras 
que reinicializar las variables de 
matrices X() en la tabla princi- 
pal de notas de cada melodia an- 
tes de que sea ejecutada. Podia 
ser necesario que tuvieras que 
canibiar tambien alguno de los 
niimeros. 



melodias cada vez que se presenten, 
puedes introducir cada frase una sola 
vez junto con una corta serie de codi- 
gos que decriban la secuencia con la 
que hay que ejecutar las frases. A 
cambio de este ahorro de memoria, 
resulta un programa mas largo, ya que 
tiene que decidir que dates ha de pro- 
cesar en cada momento. El siguiente 
programa pone esto de manifiesto: 

para Commodorfi-64 

1 5^54272: FOR Z=S TO S+24: 
POKE Z^OrNEXT Z 

2 POKE S+5,0:P0KE S+6,240: 
POKE S+24,15 

10 C=0:T=100 
20 RESTORE 

27 FOR Z=1 TO C+1:READ P: 
NEXT Z 

28 IF P=0 THEN 10 

29 RESTOREiFOR W=1T0 P:READ 
WWiNEXT W 

30 READ K,KK:IF K=-1 THEN 
C=C+1:G0T0 20 

40 POKE S+4,33 

50 POKE S+1,K:P0KE S,KK 

60 FOR Z=1 TO T:NEXT Z 

70 POKE S+4,32:G0T0 30 

100 DATA 13,33,13,33,49,33, 

13,33,69,87,13,33,0 
110 DATA 8,97,8,97,9,247,10, 

143,12,143,12,143,14,24, 

12,143,8,97,-1,0 



120 



130 



140 



150 



DATA 16,195, 

24,12,143,11 

,104,-1,0 

DATA 11,48,1 

14,24,16,195 

209,16,195,1 

DATA 12,143, 

210,16,195,1 

,16,195,15,2 

DATA 11,48,1 

14,24,16,195 

78,14,24,-1, 

fli para Vic-20 



14,239,14, 
,48,10,143,9 

1,48,13,78, 
,16,195,18, 

1,48,-1,0 

12,143,15, 

8,209,18,209 

10,-1,0 

1,48,13,78, 

,16,195,13, 

. 



1 S=36874:F0R Z=S TO S+4: 
POKE Z,0:NEXT Z 

2 POKE S+4,15 
10 C=D:T=200 
20 RESTORE 

27 FOR Z=1 TO C+1:READ P: 
NEXT Z 

28 IF P=0 THEN 10 

29 RESTORE: FOR W=1T0 P:READ 
WWrNEXT W 

30 READ K;IF K=-1 THEN C=C+1 
:G0T0 20 

50 POKE S+2,K 

60 FOR Z=1 TO TrNEXT Z 

70 POKE S+2,0:G0T0 30 

100 DATA 13,23,13,23,31,23, 

13,23,41,50,13,23,0 
110 DATA 173,173,185,189,200 

,200,206,200,173,-1 
120 DATA 214,208,206,200,192 

,189,181,-1 
130 DATA 192,192,203,206,214 

,214,218,214,192,-1 
140 DATA 200,200,211,214,218 

,218,214,211,-1 
150 DATA 192,192,203,206,214 

,214,203,206,-1 

Observa que la cantidad de datos 
requeridos para ejecutar la melodia se 
ha reducido enormcmente. Se ha pa- 
sado de 97 a 59 bytes. Haz correr el 
programa y comprueba que la melo- 
dia es la misma que la que interpreta- 
ba el primer programa. Puede que te 
parezca que el «tempo» de la miisica 
es un poco raro; hablaremos mas de 
esto dentro de poco. 

Los datos de las frases estan en las 
lineas 110 a 150, mientras que los da- 
tos de la secuencia maestra — el orden 



en que hay que ejecutar dichas fra- 
ses — esta en la linea 100, EI bucle de 
la linea 30 sirve para poner el valor de 
P dentro de la secuencia maestra para 
seleccionar cual es la frase que hay 
que ejecutar. De hecho la secuencia 
maestra es una lista de niiraeros de li- 
neas (o mimeros combinados con un 
desplazamiento para obtener los nii- 
meros de lineas) en las que se listan 
los datos de las frases. 

Despues que se ha calculado la fra- 
se, la linea 50 pone el puntero de da- 
tos al principio de la linea adecuada 
de datos. En los Commodore no sc 
puede hacer RESTORE a una linea 
dentro de un bloque de datos sino solo 
a la primera linea de datos. For eso, 
para acceder a una frase en particular 
hay que utilizar bucles FOR . . . NEXT 
(lineas 27 y 29). 

La linea 10 inicializa C para contar 
el niimero de frases que han sido ya 
ejecutadas. La linea 40 sirve para 
comprobar la ultima frase, que esta 
marcada por en la linea 100. E! final 
de cada frase esta marcado por 255. 
Despues de que se interpreta cada una 
de ellas, el programa pasa a leer en la 
secuencia maestra el niimero de linea 
de la siguiente frase. 

Hay muchas formas de fraccionar 
una melodia en una secuencia maestra 
o principal y una serie de frases. En 
general, cuanto mas cortas sean las 
frases, mas larga sera la secuencia 
principal. Tendras que buscar un cier- 
to equilibrio para que las frases sean 
pequefias, pero no tanto que la venta- 
ja de utilizar este sistema se pierda por 
el excesivo aumento del tamano de la 
secuencia maestra. 



DIVIDE Y VENCERAS 



La segunda tecnica de comprcsion 
de datos es todavia mas eficiente. Se 
basa en el hecho de que aunque en al- 
gunos micros hay disponibles un gran 
numero de notas posibles (tipicamen- 
te 256) en una melodia particular solo 
se utilizan unas cuantas. Y resulta muy 
dispendioso almacenar estos pocos so- 
nidos con un sistema que ha sido dise- 
fiado para almacenar muchos mas va- 
lores diferentes. 
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Progratno^ 




INPUT 45 




Cada direccion de mcmoria de lu 
micro de ocho bits puede almacenar 
un numero decimal en el margen de 
a 255. Si puedes restringir el margen 
de los niimcros que deseas almacenar, 
podras empaquetarlos mas en cada di- 
reccion poniendo un numero en cada 
cuatro bits. Per ejemplo, el numero 
binario de ocho bits 10100010 se pue- 
de interpretar como el numero deci- 
mal 162 o el par dc niimeros decima- 
les 10 (por los cuatro bits de la izquier- 
da 1010) y 2 (por los cuatro bits de la 
derecha 0010). 

La reduccion a la mitad del numero 
de bits disponibles para almacenar 
cada ntimero rcstringe el margen de 
numeros de una forma bastante dras- 
tica, de a 15. Pero puede ser sufi- 
ciente. Muchas veces el numero de no- 
tas diferentes en una meiodia sencilla 
no pasa de 16. 

Para utilizar este metodo de com- 
presion de datos tienes que restringir 
el numero de notas diferentes a 15, de- 
jando la decimosexta combinacion 



como codigo de control. Como ocurria 
antes, el acortamiento de los datos au- 
mcnta generalmente la cantidad de 
programs que neccsitas para procesar- 
los. En este caso el programa tiene 
que decidir que aitura de los sonidos 
debe utilizar para cada uno de los da- 
tos abreviados en forma codificada 
que se encuentra en las sentencias 
DATA. Y tu mismo tendras que tra- 
bajar bastante para preparar los datos 
de forma que sean digeribles por el 
programa, contando cuantas notas dis- 
tintas se usan en la melodia, colocan- 
dolas despues por orden ascendente 
de tono a parti r de la nota mas baja 
de la primera octava, en este caso 
Soil. Seguidamente tendras que calcu- 
lar las form as codificadas que deberan 
tener los siguientes datos. Para la can- 
cion elegida, hay doce notas: Soil, 
Lai, La#L Sil, Del, Rel, Re#l, 
Mil, Fal, Fa#l, Sol2 y La2. Teclea y 
ejecuta el siguiente programa para ver 
la manera en que va progresando el 
listado: 



para Commodore-64 



10 S=54272:F0R Z=S TO S+24: 

POKE Z,0:NEXT Z 
20 POKE S+5,0:POKE S+6,240: 

POKE S+24, 15 
23 DIM XC16),XXC16) :REST0RE; 

FOR N=1 TO 16:READ X(N), 

XX(N):NEXT N 

C=0:T=100 

RESTORE: FOR W=1 TO 32: 

READ WW:NEXT W 

FOR Z=1 TO C+1 :READ P: 

NEXT Z 

IF P=0 THEN 25 

RESTORE:: FOR W=1 TO P+40; 



25 
26 

27 

28 
29 

50 
60 
70 

80 
90 
100 



READ WW: NEXT W 

READ N:SS=N 

N=INTCN/16) 

IF N=15 THEN C=C+1 : 

GOTO 26 

GOSUB 130 

N=SS:N=15 AND N 

IF N=15 THEN C=C+1 

GOTO 26 



Suscrfbase ahora a 




PRECIO DE CUBIERTA PTAS. 375 

MBNOS: 20 % de descuento al suscriptor Ptas. 75 

USTED PAG A SOLO PTAS. 300 {por ejemplar) 

SUSCRIPCION AMUAL 12 EJEMPLARES 4.500 Ptas. 
{900 Ptas), USTED PAG A SOLO 3.600 Ptas 
(entrega a domicilio gratis) 



tNPUT le proporcLona 

INFORMACION... DIVERSION... FORMACION... 
(un curso completo de programaci6n}... 



cammodore 







e<*® 



io' 



dos 



s^^^^^^^;vc*^^^x^^^^^^x^:v^^^^^ccs^^>^^^^:c<^^ 



^C««"^^ 




...LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS... 



■>pv^nd.apro9^f^^^^„,dores... 

DWi&rtase con os 
;;■ Est6 siempre al dia 



BOLETIN DE SUSCRIPCION 



SI, envieme INPUT COMODORE durante 1 aflo (12 ejemplayes), al precio especial de oferta de 3.600 Ptas. AHORttANDOME A 
900 Ras. sobre el precio normal de portada de 12 ejemplar«s sueltos. (Por favor, cumplimente este bole tin con s us datos personales e ^ 



indTquenos con una (X) la forma de pago por usted elegida, metalo en un sobre y deposltelo en el buz6n mSs proximo). 



_l I I I L 



_1 1 APELUDOS 1 L. 



J I 1 I 1_ 



DONICIUO I 1 L_ 

[■OBLACiON L_ 
PROFESJON l_ 



_1 I I - I 



J I I 1 1__1 I I I I I I I I raOViNClA 



I PISO 

J I L. 



J COD. POSTAL L, 

_1 TELF. I I I 1 



I'll'' 



I 



Muy senores mios: 



FORMA DE PAGO ELEGIDA: Reemboiso D Domlcllwci6n BancBrla D 

Talfin nominatiuo ttue adjunlo a fauor de EDISA LJ 

I INSTRUCCIONES DE DOMlCiLIACION BANCARIA (si es elegida por usted) 

de de 19 



Recorte y enuie este cupon 

de inmediato a EDISA. Lopez de Hoyos, 

28002 Madrid, o bien llamenos 

al Telf, (91) 415 97 12 



141 



I Les ruego que, con cargo a mi cuenta n.' 
I 



1 

I 



Editorial PIANETA-AGOSTIN! a nombre de: 

I I I i 1 I I BflNCO/C do AHORKOS I 

I 1 I. I I I I I DIRECaON I i_ 



J I I I I I L 



y ^^^xxxN>^xx^^^^Nxvcsvx^;vsx^^^xxx i 



atiendan, hasta nueuo aviso, el pago de los recibos que ies presentatS V 
J I - I I I I 1 1 I 1 I I I I I I I I I I I I 1 I I I A 

I L I I I i_j I 1 L I i_j 1 I I I I I ■ .1 1 I 1 I I y 

_l I I 1 1_J I I I i I l_l I l_l I I L_J UJ — I 1 1 .1 A 

FIRMA y 
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jMal momento 
amigos! Como Jefe 
de Seguridad del Insti- 
tute de Investigaciones Gra- 
vitacionales, estaba tranquilamen- 

te apoltronado en mi despacho cuandomi"teIefono caliente" sono. 
Un grupo de saboteadoires fanaticos se ha infiltrado en el Institute 
y ha plantado numerosas bombas de relojeria y ADEMAS ha 
reprogramado mis robots guardianes para darme el susto de mi 
vida. 

Bien, [esto es todo! He tenidoque llamar a mis f uerzas de elite, los 
Androides Desactivadores, para limpiar los cinco laboratories y 
deshacerse de los desapacibles guardianes tontos. Por supuesto 
.que no es tan facil moverse por entre habitaciones cuyos suelos 
sean techos y los techos puedan ser paredes. Si los DEACTIVA- 
TORS pueden arrojar todas las bombas fuera del Centro antes de 
que todos desafiemos las ley es de la gravedad, es posible que pueda 
Gontinuar mi siesta. 



EdUado por DRO 
Fundadores. 3 28028 MADRID 
TJfs.: 255 45 00/09 # 



SOf 



110 GOSUB 130 

120 GOSUB 50 

130 POKE S+4,33 

UO POKE S+1,XCN+1):P0KE S, 

XXCN+1) 
150 FOR Z=1 TO T:NEXT Z 
160 POKE S+4,32:RETURN 
450 DATA 8,97,9,104,9,247,10 

,143,11,48,12,143,13,78, 

14,24,14,239,15,210,16, 
460 DATA 18,209,0,0,0,0,0,0, 

0,0 

195 
1000 DATA 5,10,5,10,15,10 
1010 DATA 5,10,20,25,5,10,0 
1110 DATA 0,35,85,117,15 
1120 DATA 168,117,67,31,255 
1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 

para Vic-20 

10 S=36874:F0R Z=S TO S+4: 

POKE Z,0:NEXT Z 
20 POKE S+4,15 
23 DIM X(16):REST0RE:F0R N=1 

TO 16:READ X(N):NEXT N 

25 C=D:T=200 

26 RESTORE: FOR W=1 TO 16: 
READ WW: NEXT W 

27 FOR Z=1 TO C+1 :READ P: 
NEXT Z 

28 IF P=0 THEN 25 

29 RESTORE: FOR W=1 TO P+24: 
READ WW:NEXT W 

50 READ N:SS=N 
60 N=INTCN/16) 
70 IF N=15 THEN C=C+1 : 

GOTO 26 
80 GOSUB 130 
90 N=SS:N=15 AND N 
100 IF N=15 THEN C=C+1 : 

GOTO 26 
110 GOSUB 130 
120 GOTO 50 
130 POKE S+2,XCN+1) 
150 FOR Z=1 TO T:NEXT Z 
160 POKE S+2,0:RETURN 
450 DATA 173,181,185,189,192 

,200,203,206,208,211,214 

,218,0,0,0,0 
1000 DATA 5,10,5,10,15,10 
1010 DATA 5,10,20,25,5,10,0 
1110 DATA 0,35,85,117,15 
1120 DATA 168,117,67,31,255 



1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 

Los valores de la altura de estos so- 
nidos estan codificados en las senten- 
cias DATA de la linea 450. Observa 
que cl numero de elcmentos ha de ser 
32 ya que cada valor de la altura esta 
especificado por dos parametros. Solo 
se han codificado 12 notas, llenando 
de ceros los ocho espacios restantes. 
Los cuatro bits binaries (que forman 
lo que se llama un nibble) que forman 
cada nota de la frase estan codificados 
en las Imeas 1000 y 1010. Para enten- 
der la forma en que se calculan estos 
valores, tomemos como ejemplo XL 
Asignemos una etiqueta a cada ele- 
mento de la secuencia principal de la 
linea 450. La primera nota de esta li- 
nea es 0, la segunda es 1, la tercera, 
2, etc, hasta llegar a la ultima que es 
15. A continuacion se escribe la suce- 
sion de etiquetas correspondiente a 
TL Cada valor esta contenido en un 
nibble; los nibbles se agrupan de dos 
en dos para formar los bytes. 

El primer par de nibbles es 0, 0, que 
en binario da 0000 y 0000. Al combi- 
nar estos valores se obtiene el mime- 
ro decimal 0. En consecuencia el pri- 
mer elemento de la sentencia DATA 
para la frasc Tl de la linea 1110 es 0. 
Los dos elementos siguientes de Tl 
son 2 y 3, es decir 0010 y 0011 que al 
combinarse en binario dan 001100011 
que en decimal es 35. Este es el segun- 
do valor de las DATA de Tl en la li- 
nea 1110. De analoga forma T2 se 
convierte en 10,9,7,5,4,3,1,15. 10 y 9 
se combinan para dar 1010 y 1001 en 
binario y 168 en decimal; este es el pri- 
mer valor de T2 en la linea 1120. El 
metodo sigue calculando todos los 



DATA de las frases (lineas 1110 a 
1150). Tambien aqui, la secuencia 
maestra (lineas 1000 y 1010) esta cons- 
tituida per los valores que apuntan a 
las lineas que contienen los datos de 
las frases, colocados por orden de eje- 



cucion. 



DECGDIFICACION DE LA 
CANCION 

La dccodificacion se produce entre 
las lineas 50 y 100; la linea 50 memo- 
riza el bit examinado (N), la 60 extrae 
el nibble de la izquierda, la 70 inter- 
cepta el final de la frase, la 80 llama a 
una subrutina que ejecuta la nota co- 
rrespondiente a dicho nibble y la 90 
extrae por medio de una operacion 16- 
gica de AND el nibble derecho para 
despues, igual que antes, ejecutar la 
correspondiente nota. 

Para modificar la velocidad de eje- 
cucion. hay que cambiar el valor de T, 
definido en la linea 25. El retardo en- 
tre la ejecucion de una melodia y la 
busqueda de la siguiente queda pues- 
to en evidencia al disminuir el valor de 
T. 



TO PUEDES SER EL AFGRI 
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NO OLVIDES EL TELEFONO... @ 

Cuando, por cualquier motive, nos escribas, no Divides in- 
dicar tu numero de telefono. Asi nos sera mas facil y rapido 
ponernos en contacto contigo. Gracias. 
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jj LOS MEGA HITS!! 
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AMSTRAD (a) 
Commodore (c) 
SPECTRUMrs 
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Disponibles en: 
CASSETTE 

y 

DISCKETTE 
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VISITE LA DIVISION Or: 



GMERIAS 



Editado y distribuido en Espana por: 



ipm^sA.. 



Y EN TODdS LOS DISTRIBUIDORES DE NUE5TROS PRODUCTOS 



Manano Cubi, 4 Entio. Tel, 218 34 00 - 08006 Barcelona 




PING PONG, VUELTA A UN JUEGO 
TRADICIONAL 



CON MANEJO 

DE SPRITES 
DESDE CODIGO 
MAQUINA 



El autor del programa comenzo a 
hacer sus pinitos en codigo maquina 
dedicandose a mover los sprites por la 
pantalla, comprobando visualmente la 
enorrae diferencia de velocidad que 
hay con el BASIC. Para entrenarse con 
un juego recordo las primer as maqui- 
nas recreativas electronicas, en las que 
se jugaba al tenis contra otro adversa- 
rio. El, sin embargo, practica el tenis 
de mesa. 

El programa pregunta en primer lu- 
gar la velocidad de juego deseada y vi- 
sualiza las instrucciones. Pulsando una 
tecia se formara, la mesa, las raquetas 
y la pelota. 

Seguidamente se ajusta el sonido. 
Una de las tres voces del Commodore 
64 producira cl cheque entre pelota y 
raqueta y otra hara sonar un tono 
cuando la pelota saiga fuera. 

En las matrices E y R se guardan 
los dates de posicionamiento e incre- 
mento de la pelota en el saque. Son 
necesarias dos matrices ya que estos 
valores cambian segiin sea el turno de 
uno u otro jugador para el saquc. 

Los incrementos horizontal y verti- 
cal de la pelota sc guardan en las po- 
sjciones de memoria 251 y 252, donde 
son modificados por el codigo maqui- 
na segun los choques que sufra la bola. 
El incremento horizontal es de 5 pi- 
xels en uno u otro sentido, pero el in- 
cremento vertical no es siempre de un 
pixel hacia arriba o hacia abajo, sino 
que depende del «cfccto» que le im- 
prima la raqueta. 



Es decir, si la pelota viaja hacia arri- 
ba y es golpeada hacia abajo, su nue- 
va trayectoria sera horizontal. Si, por 
el contrario, es golpeada hacia arriba, 
saldra con una inclinacion doble de la 
que llevaba. Pero, si cuando se la gol- 
pea, la raqueta permanece inmovil, 
saldra con la misma incHnaciOii que 
traia. 

El movimiento realiza desde el pro- 
grama en codigo maquina. Lo prime- 
ro que contiene es un contador varia- 
ble para conseguir distintas velocida- 
des dc juego. Despues comprueba la 
pulsacion de teclas, y en una subruti- 
na aparte, si existio cheque producien- 
dose el sonido correspondiente. 

Cuando la pelota sale fuera se de- 
vuetvc el control al BASIC, que re- 
nueva el marcador y decide a quien le 
toca sacar. La partida acaba cuando 
un jugador alcanza los 11 puntos. Pul- 
sando una tecla se reinicia cl juego. 

SEIMCILLAS MODIFICACIONES 

- Pucdc cambiarse cl color de la 
mesa en la linea 790 cambiando el 5 
de POKE I -I- J, 5 por el color desea- 
do y haciendo lo mismo en los POKES 
de 820. 

- A partir de 855 se decide el nivel 
de juego. Pueden probarse otras veio- 
cidades haciendo que D alcance otros 
valores. Deben estar comprendidos 
entre 1 y 255, siendo mas lento cuan- 
to mayor sea la cifra. 

- Pueden jugarse partidas a 21 pun- 
tos cambiando los valores de Cl y C2 
en la linea 280. 

- Pueden modificarse los incremen- 
tos horizontal y vertical de la pelota 
cambiando el valor de E(4) y E(5) res- 
pectivamente, R(4) y R(5) deberan 
valer R(i) = 256 - E(i) para i = 4,5. 



10 GOSUB 860 

20 PRIIMT'TSHIFT+CLR/HOME] 



CCTRL+6DCAR6AND0 PROGRAMA" 
30 GOSUB 770 

35 REM FORMACION DE SPRITES 
40 POKE 2040,1 92: POKE 2041, 

193: POKE 2042,194 
50 FOR 1=0 TO 191:P0KE 12288. 

+I,0:NEXT I 
60 FOR 1=0 TO 9 STEP 3: POKE 

1228S+I,240:NEXT I 
70 FOR J=193 TO 194:H=J*64: 
FOR 1=0 TO 60 STEP 3: POKE 
H+I,240:NEXT I, J 
80 V=53248:P0KE V+39,8:P0KE 

V+40,2:P0KE V+41 ,2 
85 REM POSICIONAMIENTO DEL 

CODIGO MAQUINA 
90 1=0 

100 READ A: IF A=-1 THEN 120 
110 POKE 49206+1, A: 1=1+1: 

GOTO 100 
120 1=0 

130 READ A:IF A=-1 THEN 150 
140 POKE 52224+1, A:I=I+1: 

GOTO 130 
145 REM PREPARACION DEL 

SONIDO 
150 POKE 54296, 15:P0KE 54273 

,34: POKE 54272,75 : POKE 

54277, 0:POKE 54278,240 
160 POKE 54280,72 :POKE 54279 

,169: POKE 54284 ,2: POKE 

54285,72 :POKE 54283,0 
165 REM VARIABLES DE 

POSICION E INCREMENTO DE 

LA PELOTA 
170 E(1)=4:E(2)=217:EC3)=61: 

E(4)=5:EC5)=255:RC1>=5: 

R(2)=79:R(3)=45:RC4)=251 
180 RC5)=1:P0KE V+21 ,7 
190 PRINT"CCLR/H0ME3 

C47*ESPACI03" 
200 POKE V+2,55:POKE V+4,54: 

POKE V+16,EC1):P0KE V,E 

C3):P0KE V+3, 209: POKE 

U+5,71 
210 POKE V+1,EC2> 
220 POKE 251,E(4):P0KE 252, 

EC5):P0KE 254, Ed) 



50 iliPUT 




230 

240 

245 
250 
255 

260 

270 



272 



274 



276 



280 



FOR 1=1 TO 8:GET AS: 

NEXT I 

GET AS: IF A$<>" "THEN 

240 

REH 

SYS 

REM 



290 



ACCION 300 

49204 310 

SONIDO DE FALTA Y 320 
PUNTUACION 325 

FOR 1=1 TO 30: POKE 54283 360 
,17:NEXT I:POKE 54283^0 
T=PEEK(253):IF T=70 THEN 370 
C1=C1+1 :PRINT"CCLR/HORE]" 380 
;TABC10)C1:G0T0 280 
IF T=41 THEN C2=C2+1 : 390 

PRINT"CCLR/H0ME:";TAB 
C30)C2:G0T0 280 400 

IN=PEEK(251):IF IN=5 
THEN C2=C2+1 :PRINT" 
CCLR/H0ME:";TAB(30)C2: 410 
GOTO 280 

IF IN=251 THEN C1=CH-1: 420 
PRINT"[CLR/H0ME3"; 
TAB(10)C1 450 

IF C1=11 OR C2=11 THEN 



PRINT"[CLR/H0ME3"TABC19) 

"FIN":G0SUB 760 

M=CUC2:IF N!/5 = INTCR/5) 

THEN GOSUB 740 

GOTO 200 

WAIT 197,191 

GOTO 190 

REM CODIGO MAQUINA 

DATA 160,0,200,192^0^208 

,251,202,224,0,208,246 

DATA 169,0,141,4,212 

DATA 165,197,201,56,208, 

1,96 

DATA 173,1,220,201,251, 

208,16 

DATA 173,3,208,201,50, 

240,9,206,3,208,206,3, 

208,206,3,208 

DATA 173,1,220,201,223, 

208,16,173,3,208,201,230 

DATA 240,9,238,3,208,238 

,3,208,238,3,208 

DATA 165,197,201,54,208, 

16,173 



440 DATA 5,208,201,50,240,9, 

206,5,208,206,5,208,206, 

5,208 
450 DATA 165,197,201,7,208, 

16 
460 DATA 173,5,208,201,230, 

240,9 
470 DATA 238,5,208,238,5,208 

,238,5,208 
480 DATA 173,30,208,201,3, 

208,36 
490 DATA 173,1,220,201,251, 

208,5 
500 DATA 169,255,32,0,204, 

173,1,220 
510 DATA 201,223,208,5,169,1 

,32,0,204 
520 DATA 173,1,220,201,255, 

208,5,169,0,32,0,204 
530 DATA 201,5,208,33 
540 DATA 165,197,201,54,208, 

5,169,255 
550 DATA 32,0,204,165,197, 

201,7 



INPUT 51 



560 DATA 208,5,169,1,32,0, 

204,165,197,201,64,208,5 

,169,0,32,0,204 
570 DATA 165,251,24,109,0, 

208,133,253 
580 DATA 201,0,208,7,173,16, 

208,73,1 
590 DATA 133,254,165,252,24, 

109,1,208 
600 DATA 201,46,240,52,201, 

45,240,48 
610 DATA 201,44,240,44,201, 

43,240,40 
620 DATA 201,250,240,36,201, 

251,240,32 
630 DATA 201,252,240,28,201, 

253,240,24 
640 DATA 141,1,208 
650 DATA 165,253,201,70,240, 

15 
660 DATA 201,41,240,11,141, 

0,208 
670 DATA 165,254,141,16,208, 

76,52,192 
680 DATA 96,-1 
690 DATA 24 
700 DATA 101,252,133,252,169 

,129 
710 DATA 141,4,212,165,251, 

201,5 
720 DATA 208,5,169,251,133, 

251,96 
730 DATA 169,5,133,251,169, 

0,96,-1 
735 REM CAHBIO DE SAQUE 
740 F0RI=n05:N=E(I):E(I)=R 




CI>:RCI)=N:NEXT I 

750 RETURN 

755 REM FORI^ACION DE LA 

PANTALLA 
760 FOR 1=1 TO 1000: NEXT I: 

C1=0:C2=0:GOTO 310 
770 POKE 53280,0: POKE 53281, 

15 
780 FOR 1=55420 TO 56140 

STEP 40 
790 FOR J=0 TO 31: POKE I+J,5 

:POKE I-54272+J,160 
800 NEXT J, I 
310 FOR 1=1508 TO 1539: POKE 

I,192:NEXT I:FOR 1=1521 

TO 1526: POKE 1,160: 

NEXT I 
820 POKE 55355,5: POKE 55395, 

5:P0KE 56195, 5:P0KE 

56235,5 
830 POKE 1083 ,103: POKE 1123, 

103: POKE 1923 ,103: POKE 

1963,103 
840 FOR 1=1163 TO 1883 STEP 

40: POKE 1,231 :NEXT I 
850 RETURN 

855 REM NIVEL/INSTRUCCIONES 
860 INPUT"CSHIFT+CLR/H0P1E] 

NIVEL DE JUEGO (1 A 5)"; 

D 
870 IF D<1 OR D>5 THEN 860 
880 D=ABSC5-D)*2+ 8 
890 POKE 49204, 162:P0KE 

49205, D 
900 PRINT"i:SHIFT+CLR/HOME] 

CCRSR abajoDRAQUETA 



DERECHA: L^l Y CCRSR 
ABAJO]" 
910 PRINT*'CCRSR abajoD 
RAQUETA IZQUIERDA: 

cctrl;] Y CC=]" 

920 PRINT"CCRSR abajoJSAQUE; 

[ESPACIO]" 
930 WAIT 197,191 
940 RETURN 



RUTINA EN CODIGO MAQUINA 

DESENSAMBLADA 



DIR. 


CODIGO 




NEMONICOS 




HEXADEC 


—~~z 




,C034 


A2 


10 




LDX 


#$10 


,C036 


AO 


00 




LDY 


#$00 


,C038 


C8 






INY 




,C039 


CO 


00 




CPY 


#$00 


,C03B 


DO 


FB 




ONE 


$C03S 


,C03D 


CA 






DEX 




,C03E 


EO 


00 




CPX 


#500 


,C040 


DO 


F6 




BNE 


$C038 


,C042 


A9 


00 




LDA 


#S00 


,C044 


8D 


04 


D4 


STA 


$D404 


,C047 


A5 


C5 




LDA 


$C5 


,C049 


C9 


38 




CMP 


U$5B 


,C04B 


DO 


01 




BNE 


$C04E 


,C04D 


60 






RTS 




,C04E 


AD 


01 


DC 


LDA 


$DC01 


,C051 


C9 


FB 




CMP 


#$FB 


,C053 


DO 


10 




BNE 


$C065 


,C055 


AD 


03 


DO 


LDA 


$D003 



TRANSTAPE 6.903 

commodore 




PTS 
IVA INCLUtDO 

LA INTERFACE DE MAS ALTA EFICACIA PARA HACER COPIAS DE SEGURIDAD 
DE TUS PROGRAMAS A CASSEHE Y DISCO, EN UNA SOLA OPERACION. 

— No necesitaras la interface TRANSTAPE para funcionar los programas. 

— 2 modos de copia a cassette en TURBO. 

— Copias a Disco 1541-1571 en alta velocldad. 

— ACELERADOR DE CARGA en disco para cualquier programa comercial. 

— RESET de doble funcion. 

— SOWFARE EN EPRON INTERCAMBIABLE para futuras ampliaciones. 

— 6 MESES de garantia. 

— Desarrollada y fabrlcada en Espana por HARD MICRO especialistas en Interfaces de trasferencia de programas. 
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o 


J U 


TRANSTAPE 

HM 




m 


U L 















OTRAS OFERTAS - 



DATACASSEHE 
PADDLES 



DISQUET 5%^ 



.4.500 ptas. 
_800ptaSc 
_ 290 ptas. 



HM 

HARD MICRO 



ATENOEMOS PEDIOOS POR 
TELEFONO CARTA A: 

CI Consejo de Ciento, 345 Bajos 6 
Barcelona 08007 Tel. (931 216 01 99 















- 


partkipa ^= 


































_ _j 

C9 


FB 


— -- 


■— — '■ _____ J _ 




,C058 


C9 


32 




CMP 


#$32 


^C0B2 


^C102 


DO 


07 


BNE 


SCI OB 


,C05A 


FD 


09 




BEQ 


$C065 


,C0B4 


DO 


05 




BNE SCOBB 


,C104 


AD 


10 


DO LDA 


$D010 


,C05C 


CE 


03 


DO 


DEC 


$D003 


,C0B6 


A9 


FF 




LDA #$FF 


,C107 


49 


01 


EOR 


#$01 


,C05F 


CE 


03 


DO 


DEC 


$D003 


^C0B8 


20 


00 


cc 


JSR $CCOO 


^C109 


85 


FE 


STA 


SFE 


,C062 


CE 


03 


DO 


DEC 


$D003 


,COBB 


AD 


01 


DC 


LDA $DC01 


,C10B 


A5 


FC 


LDA 


$FC 


,C065 


AD 


01 


DC 


LDA 


SDCCI 


^COBE 


C9 


DF 




CMP n$t>¥ 


,C10D 


18 




CLC 




,C068 


C9 


DF 




cnp 


#$DF 


^COCO 


DO 


05 




BNE SC0C7 


,C10E 


6D 


01 


DO ADC 


SD001 


,C06A 


DO 


10 




BNE 


$C07C 


^C0C2 


A9 


01 




LDA #S01 


,C111 


C9 


2E 


CMP 


#$2E 


,C06C 


AD 


03 


DO 


LDA 


$D003 


,C0C4 


20 


00 


cc 


JSR $CCOO 


,C113 


FO 


34 


BEQ 


$0149 


,C06F 


C9 


E6 




CMP 


#$E6 


,C0C7 


AD 


01 


DC 


LDA SDCOI 


^C115 


C9 


2D 


CMP 


#S2D 


,C071 


FO 


09 




BEQ 


$C07C 


,COCA 


C9 


FF 




CMP #$FF 


,C117 


FO 


30 


BEQ 


$0149 


,C073 


EE 


03 


DO 


INC 


$D003 


,COCC 


DO 


05 




BNE $C0D3 


^C119 


C9 


2C 


CHP 


#S2C 


^C076 


EE 


03 


DO 


INC 


$D003 


,COCE 


A9 


00 




LDA #$00 


,C11B 


FO 


2C 


BEQ 


SCI 49 


,C079 


EE 


03 


DO 


INC 


$D003 


^CODO 


20 


00 


cc 


JSR SCCOO 


,C11D 


09 


2B 


CMP 


#$2B 


^C07C 


A5 


C5 




LDA 


$C5 


,C0D3 


C9 


05 




CMP #$05 


,C11F 


FO 


28 


BEQ 


$0149 


,C07E 


C9 


36 




CI«P 


#$36 


^C0D5 


DO 


21 




BNE $COFS 


,C121 


09 


FA 


OMP 


#$FA 


,C080 


DO 


10 




BNE 


$C092 


,C0D7 


A5 


C5 




LDA $C5 


,0123 


FO 


24 


BEQ 


$C149 


,C082 


AD 


05 


DO 


LDA 


SD005 


,C009 


C9 


36 




CMP #$36 


,0125 


C9 


FB 


CMP 


#$FB 


,C085 


C9 


32 




CMP 


#$32 


,CDDB 


DO 


05 




BNE $C0E2 


,0127 


FO 


20 


BEQ 


SC149 


,C087 


FO 


09 




BEQ 


SC092 


,CODD 


A9 


FF 




LDA #$FF 


,0129 


09 


FC 


CMP 


#$FC 


,C089 


CE 


05 


DO 


DEC 


SDOOS 


,CODF 


20 


00 


CC 


JSR SCCOO 


,C12B 


FO 


10 


BEQ 


$0149 


,C08C 


CE 


05 


DO 


DEC 


SD005 


,C0E2 


A5 


C5 




LDA $C5 


,C12D 


C9 


FD 


CMP 


#$FD 


,C08F 


CE 


05 


DO 


DEC 


$D005 


,C0£4 


09 


07 




CKP #$07 


,C12F 


FO 


18 


BEQ 


$C149 


,C092 


A5 


C5 




LDA 


$C5 


,C0E6 


DO 


05 




BNE $COED 


,C131 


8D 


01 


DO STA 


SD001 


,C094 


C9 


07 




CMP 


#$07 


^COEB 


A9 


01 




LDA #$01 


,0134 


A5 


FD 


LDA 


$FD 


^C096 


DO 


10 




BNE 


SCOAS 


,COEA 


20 


00 


cc 


JSR SCCOO 


,0136 


C9 


46 


CMP 


#S46 


,C098 


AD 


05 


DO 


LDA 


$D005 


,COED 


A5 


C5 




LDA $C5 


,0138 


FO 


OF 


BEQ 


$0149 


,C09B 


C9 


E6 




mP 


#$E6 


,COEF 


C9 


40 




CMP #$40 


,013A 


09 


29 


CMP 


#$29 


,C09D 


FO 


09 




BEQ 


SCOAS 


,C0F1 


DO 


05 




BNE $C0F8 


,C13C 


FO 


OB 


BEQ 


$0149 


,C09F 


EE 


05 


00 


INC 


$D005 


,caF5 


A9 


00 




LDA #$00 


,C13E 


8D 


00 


DO STA 


SDOOO 


,C0A2 


EE 


05 


DO 


INC 


SD005 


,C0F5 


20 


00 


CC 


JSR SCCOO 


,0141 


A5 


FE 


LDA 


SFE 


,C0A5 


EE 


05 


DO 


INC 


$D005 


,C0F8 


A5 


FB 




LDA SFB 


,0143 


8D 


10 


DO STA 


$D010 


,C0A8 


AD 


IE 


DO 


LDA 


$D01E 


^COFA 


18 






CLC 


,0146 


4C 


34 


00 J MP 


$0034 


^COAB 


C9 


03 




CMP 


#$03 


,C0FB 


6D 


00 


DO 


ADC SDOOO 


,0149 


60 




RTS 




,COAD 


DO 


24 




BNE 


$C0D3 


^COFE 


85 


FD 




STA $FD 












^COAF 


AD 


01 


DC 


LDA 


SDC01 


,C100 


C9 


00 




CMP #$00 
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LOS MEJORES 

DE INPUT 
COMMODORE 

PUCSTO TITULO PORCMTAJE 

1.° Commando 18,2 % 

1° Green Beret 17,5% 

3.° Rambo 13,2% 

4° Skyfox 13,1 % 

5.° Dragon's Lair 10,2 % 

6° Hardball 5,9% 

7° Saucer Attack II 5,8% 

8." Uridium 5,8% 

9.° Saboteur 5,2 %> 

10.° Kung Fu Master 5,1 % 

100% 

Para la confeccion de esta relacion unicamente se ^ 

han tenido en cuenta las votaciones enviadas por 
nuestros fectores de acuerdo con fa seccion «Los 
Mejores de InpuU. 

Diciembre de 1 986. 





54 INPUT 



BECKER 




COMMODORE 6^* 

El manual del cassette para el C~Sh y VrC-20 

E] libro de ideas para el C~6^ 

C-6^ consejos y trucos I 

Peeks y Pokes para el C-h^ 

Oiccionario para su C-6^ 

Lenguaje maquina para el C-6't 

Eenguaje maquina para avanzados para el C-6't 

C-6^ interno 

Graficos para el C-Sh 

C-Sk en el campo de la ciencia y la tecRica 

Mantenimiento y reparacion del floppy IS'tl 

El manual escolar para el C-6^ 

Rob5tica para su C-6't 

Todo sobre el floppy ^^k1 

EI ensamblador 

Introduccion a la inteligencia artificial 

Todo sobre bases de datos y gestion de ficheros 

Todo sobre impresoras CBM bh-lZS 

C-b't consejos y trucos II 

El libro de estadisticas para el C-S't 

El Commodore 6V como traductor 

C-64 rutinss del sistema 



10 
11 
12 
13 

15 

16 

17 
18 
19 
20 
21 
22 



COMMODORE 128 

101 Todo sobre el nuevo C-128 

102 C-128 consejos y trucos 

103 C-128 interno 

lO'f C-128 Peeks y Pokes 

105 C-128 para principiantes 

106 El gran libro BASIC C-128 

107 CP/M para Commodore 128 

108 Todo sobre el floppy 1571/I570 

COMMODOfiE AMIGA 
201 AMIGA para principiantes 



COMMODORE C-U 
301 C-.I6 para principiantes 



1.696 

1.696 

2.968 

1.696 

2.968 

2.332 

2.332 

4.028 

2.332 

2.968 

2.968 

2.968 

2.968 

3.392 

2.332 

2.968 

2.332 

2-968 

2.332 

2.968 

2-332 

2.332 



2-332 
2.968 
k.2kQ 
1.908 
1.908 
2.5^4 
3.392 
4-876 



4-134 



1-696 



SOnWARE COMMODORE 



AMSTRAD CPC 

1001 El manual escolar CPC 464/6128 

1002 CPC 464/6128 consejos y trucos I 

1003 Peeks y Pokes CPC 464/6128 

1004 El lenguaje maquina para CPC 464, 664, 6128 

1005 CP/M el libro de ejercicios para el CPC 

1006 El libro de ideas para CPC 464, 664, 6128 

1007 CPC 6128 para principiantes 

1008 CPC consejos y trucos II 

1009 El gran libro del floppy CPC 664/6128 

AMSTRAO PCW 
1101 PCW 8256 para principiantes 

MSX 

2001 MSX programas y utilidades 

2002 MSX graficos y sonido 
2005 El manual escolar MSX 

2004 MSX lenguaje maquina 

2005 MSX consejos y trucos 

2006 MSX para principiantes ; 

ZX SPECTRUM 

3001 ZX Spectrum consejos y trucos 

3002 El manual escolar ZX Spectrum 

ATARI 6OOXL/8OOXL/13OXE 
^001 Aventuras y como se programa en el ATARI 
.002 Manual escolar para ATARI 6OOXL/8OOXL/IOXE 
4005 Peeks y Pokes para ATARI 6OOXL/8OOXL/13OXE 
4004 Juegos y estrategias y como se programa 

ATARI ST 

4101 ATARI ST Peeks y Pokes 

4102 ATARI ST consejos y trucos 

* 4103 ATARI ST para principiantes 

* 4104 ATARI ST aplicaciones graficas 

GENERALES 
6001 Todo sobre el procesador Z-80 

6201 Metodologia de la programacion 

6202 Metodologia y practicas LOGO 

6203 Practicas BASIC I 



2.332 
2.332 
1.696 
2.332 
2.968 
2.332 
1.908 
2.544 
2.968 



2.332 



2.332 
2-968 
2-968 
2.532 
2.332 
1.908 



2-332 
2.332 



2-532 
2.968 
2.332 

1.696 



1.908 
2.968 
2.544 
*2-544 



4.028 
2.332 
2.650 

2.332 



COMMODORE 64 

10001 TEXrOMAI 

10002 PROEIMAT 
10005 ADA 

10004 ELECTROMAT 

10005 PLATINE 64 

COMMODORE 128 
10101 BASIC 128 



6.552 
6.552 

15.104 
4.592 

33.600 



Procesador de textos con juego de caracteres castellano y Catalan 

Monitor y macrcensamblador. 

Un potente lenguaje de programacion. 

Disenador de esquemas de clrcuitos. 

Diseiiador de circultos impresos con trazo automatico. 



6.552 Compilador basic optimizado. 



I.VA Y FORTES INCLUIOOS EN EL PRECIO 



SOUCITE FOLLETO INFORMATIVO 

DATA BECKER 

Ferre Mo ret S.A. c/. Ccircega, 299 - 08008 BARCELON/^ 
Telfs.: (93) 217 62 38-217 69 01 - 218 02 93 




Revis 



#ade Software 



STRIKE FORCE HARRIER 



El Harrier es un avi6n de 
combate capaz de realizar 
vuelo estacionario. Quizis 
recordeis la noticia del 
aterrizaje forzoso de uno 
sobre sobre un barco en 
alta mar el aflo pasado. Sus 
caracterlsticas ticnicas 
resultan 

extraordinariaraente utiles 
en el combate aereo, mAxiine 
que puede realizar fuertes 
desaceleraciones. 
rike Force Harrier respeta 
la realidad hasta sus 
i&ltimos detalles, siendo 
tanto juego de ^arcadia' 
como estrategia. De hecho 
los britAnicos lo utilizan 
en tres variantes: la 
primer a se destina a vuelo s 
de reconocimiento, la 
segunda como apoyo de 
tropas y, por illtimo, es 
utilizado por la marina 
como apoyo tActico en 
operaciones anflbias. Este 
programa contempla los tres 
aspectos. 

Puedes desarrollar un juego 
de estrategia pura sobre un 
terreno muy amplio, que 
oculta 3.500 misiles 
enemigos. 

El panel de instrumentos es 
el mas complete que 
conocemos hasta la fecha, 
dotando al juego de un alto 
grado de realismo.Al igual 
que en los modernlsimos 
aviones de combate, la 
informaci6n relevante 
aparece visualizada en la 
cabina. Asl pueden 
conocerse los datos mas 
tttiles: velocidad vertical, 
velocidad del viento, 
brftjula... .Otro 
instrumento, llaraado 
'gunsight', representa el 
Angulo que toma el avi6n 
con respecto al horizonte 



DATOS GENERALES 


TITULO Strike Force Harrier 




FABRiCANTE Mirrorsoft 




ORDEHADUR ComfTiodore 64 




TEMA DEL PROGRAMA 

Simulador de vuelo 




^mmmm^^ 


CAUFICACION (Sobre 10 


ptos.) 


ORIGINAUDAD 

INTERES 

GRAFICOS 

ROIOR 

SONIDO 


9 
10 
9 
9 
8 


TOTAL 


45 



artificial . 

En la parte inferior de la 
pantalla, una ventana va 
indicando los fallos de 
pilotaje cometes: "Vuelas 
demasiado bajo" y "Vas 
demasiado lento" son los 
mas repetidos. 
Otro indicador, llamado 
'foftracS te muestra un 
area de 1 2 millas por 6 , 
detectando en pantalla los 
lugares donde se enouentran 





ubicados los misiles S.A.M, 

los tanques, las pistas de 
aterrizaje, los aviones 
enemigos, etc . . . 
Este juego de Mirrorsoft es 
sin duda uno de los mejores 
simuladores conocidos hasta 
la fecha. En el manual de 
instrucciones vienen 
detalladas una serie de 
maniobras que pueden 
salvarte el pellejo.en 
ocasiones crlticas. 



••••••••••••••••••••••• 

MOTOS 

DE COMPETICION 



Supercycle es un juego de 
competiciin sobre dos 
ruedas . Recuerda mucho al 
programa de Gompetici6n 
automovillstica Pitstop II, 
no en vano es del mismo 
f abricante , Epyx . 
Sentado en tu silla puedes 



seleccionar el color de la 
moto y tu cazadora. 
Despu4s de eleglr el grado 
de dificultad, te 
encuentras en la linea de 
salida con un motorista en 
cada uno de tus f lancos . El 
juez se apresta a dar la 
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Le sacaras partido a tu ordenador 




PROGRAMACION AVANZADA 
DEL COMMODORE 64 

Ampliacidn del BASIC y mtinas 

graficas 

John P. Gibbons 

1802pm. 



EL LffiRO GIGANTE DE LOS 
JIJEGOS PARA COMMODORE 

64/128 
Gregg Barnett 
1.484 ptas. 



SISTEMASEXPERTOS 

Introduccion al diseiio 
y aplicaciones 
Tim Hartnell 
2.120ptas. 



SIMULACIONES 

Replica la realidad 
con tu ordenador 
Tim Hartnell 
1.643ptas 







CODIGOSYCLAVES 
SECRETAS 

Criptografi'a en Basic 
Gareth Greenwood 
1.378 ptas. 



ELSUPERLffiRODELOS 
JUEGOS PARA ORDENADOR 

Tim Hartnell 
2.120pta$. 



INTELIGENCIA ARTIFICIAL 

Conceptos y programas 
Tim Hartnell 
1.484pias. 



V 



^^ 



n Les ruego me envien ei calalogo de su editorial 
n Les ruego me envi'en los siguientes tftulos: 



n 



COMETAS EN TU MICRO: 
ELHALLEY 

Calculos de orbitas y parametros 
de cometas en Basic 
F.Galende, A. Sanchez, 
M. Alfaraz y J. A. Sanchez 
583ptas. 



fOTAL 



ANAYA 



D Adjunto talon bancario a 
GRLPO DISTRIBUIDOR EDITORIAL. S. A. 

D Pagare conirarrembolso (+ 140 pesetas degasto de envio) 

N ombre . 

Profesi()n 

Direccibn 

C. P. Localidad 



I 



IMULTIMEDIAI 



Adquieralos en su libreria habitual. 

Si no le es posible o desea que le envicmos nuestro catalogo, envie este cupon a: 

Apdo, de Correos 14632, Ref. D. de C 28080 MADRID 

Comercializa: GRUPO DISTRIBUIDOR EDITORIAL. 



Provincia 
iC 



1,^ 
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sal Ida. 

Presionas el bot6n de 

disparo del joystick para 

decidir la sal Ida, A partlr 

de abora puedes utilizar 

las tres marchas de la moto 

para ganar velocidad o 

reducirla. 

La moto se inclina con gran 

realismo cuando tomas las 

peligrosas ourvas. 

Si realizas las vueltas por 

debajo del tiempo 

pre stable cido, obtendris 



DATOS GENERALES 

TfTULO Super cycle 
FABRECANTE Epyx 
ORDENADOR Commodore 64 

TEMA DEL PROGRAMA 

Carre ras de motos 



CALIFICACION (Sobre 10 ptos.) 



ORIGIHAUDAD 

INTERES 

GRAFICOS 

COLOR 

SONIDO 



TOTAL 



41 





bonif icaciones . 

El programa da muestras de 

haber sido desarrollado con 



toda meticulosidad, siendo 
tan adictivo come todos Ics 
de su clase , 



••••••••••••••••••••••• 



TU OTRO YO 

Seguro que alguna vez has 
pensado que podrlas vivir 
otra existencia. Peor, para 
eso deberlas ser otro, 
tener otras ilusiones y 
afanes en la vida, dejando 
a un lado tus miedos y 
frustraciones. Pero eso es 




DATOS GENERALES 

TUULO Alter Ego 
FABRICANTE Actvislon 
ORDENADOR Commodore 64 

TEMA DEL PROGRAMA 

Simulacion de la vida 



CALIFICACION (Sobre 10 ptos.) 



ORIGIHAUDAD 

INTERES 

GRAFICOS 

COLOR 

SONIDO 



10 
9 
8 

7 
no lo necesita 



infancia, nifiez, 
adolescencla, pubertad , 
madurez y vejez. Esto te 
obliga a seguir un 
determinado curso, no 
pudiendo saltar de una a 
otra voluntariamente . 
En cada una puedes tomar 
decisiones, en funoidn de 
las opciones que se te van 
presentando. De todas 



TOTAL 



34 sobre 40 




tan dif loll . 

Alter Ego es un raagnifico 

programa que te permite 



seguir una nueva vida a 
trav^s de las siete etapas 
clave: nacimiento e 



formas, el juego puede dar 
Gomienzo en la etapa que 
mas gustes. 
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Al comienzo del juego 
puedes seleccionar un 
perfll de personalidad 
determinado. Para ello 
basta con responder 
afirmativa o negativamente 
a las preguntas de un 
cuestionario . No en vano 
Alter Ego ha sido 
desarrollado per un 
prestigioso sia61ogo , quien 
ademis ha previsto 
versiones para varones y 
feminas con distintas 
esperiencias para cada uno. 
El mane jo del programa en 
si es lo mas parecido a un 
juego conversacional, que 



te propone situaciones y te 
pide una respuesta 
partiendo de alternativas. 
Mediante los iconos que van 
desplazandose por la 
pantalla, a medida que 
mueves el joystick, puedes 
examinar problemas , 
opciones y circunstancias. 
Aqul estdn presentes 
Guestiones sociales, 
emooionales, Intelectuales, 
vocacionales, familiares, 
etc.. En definitiva, 
puedes fabricarte una nueva 
vida con distintas metas e 
ilusiones (problemas 
tambi§n), e ir ganando o 



perdiendo puntos en una 
serie de facetas del ser 
humano. 

El programa viene grabado 
en tres diskettes. La mayor 
limitaci6n la representa el 
hecho de ser un programa 
escrito integramente en 
ingles, axHique es una 
excelente herramienta para 
refrescar nuestros 
conocimientos del idioma, 
A algo tan realista no 
puede llamarsele juego. Te 
puede mantener horas 
sentado ante el monitor sin 
darte cuenta del transcurso 
del tiempo. 



•••*••••••••••••••••••• 



EL IMINJA 

Lo de menos es el objetlvo 
del luchador, en este caso 
rescatar a la princesa 
Di-Di, "Perla del Oriente". 




Lo mas iraportante es el 
realisrao de los mamporros 
que te permite dar el 
joystick a los malvados de 
turno . 

Debes introducirte en el 
Palacio de las Perlas. 
Tambi*n has de recoger los 
idolos que la bella ha ido 
dejando caer. 

Siguiendo el camino trazado 
por Fist II, Nlnja 
demuestra ser un buen juego 
a precio asequible. Tal 



como viene demostrando su 
fabricante, Master tronic . 

Tambi4n este juego 
incorpora peligrosas arraas 



DATOS GENERALES 


TTTULO Ninja 




FABRICANTE Mastertronic 




ORDENADOR Commodore 64 




TEMA DEL PROGRAMA 

Artes marciales 




^^W^^-i^i4l^#^ 


CALIFICACION iSobre 10 ptos.) 


ORIGIHAUDAD 

IKTERES 

GRAFICOS 

COLOR 

SONIDO 


7 
9 
8 
8 

7 


TOTAL 


39 



blancas para tu mayor 
gloria. Dispones de una 



autAntica espada de 
samurai, una peligrosa daga 
y las arrojadizas estrellas 
voladoras de filo mortal. 
El surtido de patadas y 
pufietazos es bastante 
amplio, para disfrutar del 





juego y resolverlo con buen 
fin. 



•••••••••••••••••^^••••+ 



INPUT S& 



\, 




EL GUERRERO DE CAMELOT 



Ten cuidado, caballero 
andante, si osas traspasar 
la barrera que da paso a 
los peligros y aventuras de 
este juego. 

En Camelot las fuerzas 
malignas han hecho aparecer 
ouatro elementos de nuestra 
era, el siglo XX. Estos 
elementos se conocen en 
Caraelot como la Voz de Otro 



Mundo, el Espejo de la 
Sabiduria, el Elixir de la 
Vida y el Fuego que No 
Quema. Son elementos 
misteriosos que estin 
perturbando el equilibrio 
de los Fuerzas MAgicas y es 
tu mlsidn de caballero 






.*" 



.*«' 



DATOS GENERALES 

TITULO Camelot Warriors 
FABRICANTE Dinamic 
ORDENADOR Commodore 64 

TEMA DEL PROGRAMA 

Juego de habilidad 




CALIFICACION [Sobre 10 ptos.i 



ORIGINAUDAD 
1 IKTERES 
GRAFICOS 
COLOR 
SOHiDO 



TOTAL 



41 



andante entregirselas a los 
guardianes de cada mundo 
para su de s truce idn. 
Pero, para eso, tienes que 
enfrentarte con los 
peligros de cuatro mimdos 
distintos: el Bosque, donde 
vive Aznathel druida, el 
Lago, morada de Kindo 
hermano de Neptuno el rey 
del lago, las terribles 
Grutas, donde habita el 
dragdn Azoralc, sefior de 
los mundos subterrineos y, 
por Ultimo, , el castillo de 
Camelot y la Corte del rey 
Arturo. Alii se encuentra 
la solucidn final . 
Ten por seguro que con 
Camelot Warriors tenemos 



mucho rato de diversion 
asegurada. Loe efectos 
grAficos son excelentes, la 
dificultad va en aumento y 
el movimiento del personaje 
tiene bastante gracia. 
Los mundos que comprenden 
la aventura incorporan 
llamativas plantas, 
elementos y peligros 
insospechados. La espada y 





los brincos q ue pega el 
caballero son las 
principales bazas para 
abrirte camino a lo largo 
de ... muchas , muchas 
pantallas diferentes. 



••••••••••••••••••••••• 



EL HUMAIMOIDE Y EL BEBE 



Sumido en un alucinante 
mundo de horrores 
genAticos, vive un bebe 



llamado Nejo, que precisa 
de los cuidados necesarios 
para sobrevivir. 



Un hombre sintitico, Solo, 
debe proporcionarle la 
leche que sirve para su 
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ESTRENO MUNDIAL 



THE FINAL CARIMDGE 2 

EL PRIMER SISTEMA OPERATIVO EXTERNO 
PARA EL CBM 64 

AHORA, CON FREEZER COMPLETO 

(Puede cargar sus backups sin el cartucho) 

Este sistema operativo construido en un cartucho no utiliza memo- 
ria alguna y esta siempre presente. Compatible con 99% 

de los programas. 



INCORPORA 



TURBO DISCO: Carga 6 veces mas 
rapido -salva 6 veces mas rapido - hJo 
Borra la pantalia. 

TURBO CINTA: 1 veces mas rapido, 
incluso con ficheros. Utiliza los coman- 
dos normaJes del Commodore (Load- 
Save-lnputTT,,.,) 

INTERFACE CENTRONICS: Permite uti- 
lizar las impresoras de tipo paralelo. 
Imprime ios graficos Commodore y los 
codigos de control, 
(Importante para los listados). 

VOLCADOS DE PANTALLA: De alta 
revolucion y texto. 1 pagina de ancho- 
1 2 tonos grises, copia pantallas de jue- 
gos o de programas como Doodle, 
Koala Pad. Print Shop, etc. Busca auto- 
maticamente !a direccion en memoria. 
Funciona con impresoras Commo- 
dore y Centronics. 

24 K. MAS DESDE EL BASIC: 2 nuevps 
comandos; "memory write" y "memory 
read" mueven 192 bytes muy rapida- 
mente en cualquier sitio de los 64 RAM 
del CBM 64. Se pueden usar con cade- 
nas variables. 

COMANDOS DEL BASIC 4.0: Como 
dioad, dsave. dappend, catalog, etc. 

TECLAS DE FUNCiON TELEPROGRA 

MADAS: Run, load, save, catalog, 
comandos de disco, list (quita las pro- 
tecciones contra el listado de los pro- 
gramas en BASIC). 

MONITOR DE CODIGO MAQUINA: 

Scroll tiacia arriba y abajo. 
Bankswitching {para leer y escribir 
debajo de las ROOMS), etc... No reside 
en memoria. Se puede llamar en cual- 
quier momento con cualquier programa 
en memoria 
RESET: Resetea todos los programas. 

TRAINING MODE: Para cancelar la 
deteccion de colision de sprites 
podras ir hasta el final de los juegos 
sin que te maten los biclios malos. 



+ 



SUPER FREEZER 




Ejempio de volcado de pantalla. 



jHasta el precio 

es increible! 



PTAS. 
9.900 



FT ^ 

ATENCION: Las copias consegui- 
das con THE FINAL CARTRIGE 2 
son exclusivamente para use pro- 
pio. 



Pulsando el boton del FREEZER, to- 
mara el control de su ordenador, "con- 
gelando" e! programa en memoria. Con 
la ayuda de un menu muy comodo 
podra: 

— Hacer VOLCADOS DE PANTALLA, 
alta o baja resolucion (por ejempio !as 
pantallas de sus juegos prgferidos). 
Podra "congelar" cualquier programa 
en el momento que desee. y volcar la 
pantalla sobre el papel. 
— Hacer COPIAS DE SEGURIDAD de 
sus programas. El FREEZER le permi- 
tira, con programas protegidos o no, 
cualquiera que sea el sistema de carga 
utilizado (turbo, verificacion de errores, 
entre pistas ). 

• Hacer copias de cinia a cinta 

• Hacer copias de cinta a disco 

• Hacer copias de disco a cinta 

• Hacer copias de disco a disco 
solo pulsando una tecla. El proceso de 
copia es totalmente automatico, y no 
necesita tener ningOn conocimiento de 
programacion. La copia facilitada por el 
FREEZER consta solo de dos partes (un 
cargador y el programa propiamente 
dicho) y se puede caraar. 
INDEPENDIENTEMENTE DEL CAR- 
TUCHO (a velocidad turbo), EL 
FREEZER de THE FINAL CARTRID- 
GE 2 es mas comodo y mas rapido 
que los productos especializados 
ingleses o americanos probados has- 
ta ahora. 



NO EXISTE NINGUN PRODUCTO 
COMPARABLE PARA SU C64: Encon- 
trara quizas algun FREEZER {con otro 
nombre) ingles o amencano. pero ade- 
mas de ser mas caro sera solo un 
FREEZER. 

THE FINAL CARTRIDGE 2 da muchc 
mas, por menos. 



DISPONIBLE EN LAS MEJORES TIENDAS O DIRECTAMENTE POR CORREO TELEFONO 



iM^AAA AAA.A»i 



IMPORT ADOR EXCLUSIVO 



Condiciones 
especiales para 
distribuidores I 



B) HBRBOfT,SA 

C Coso 87-6 ^ A-Telf l975) 39 99 61-50001 ZARAGOZA 



co[)v' g''i snri regisie-'cc irsiJemafK H6.P compaier j 
WoiafiaensfcocM 236 30B3 MV fioiierdarr, NeUwr^and:; \t 



01031 10^3198: 






alimentacidn. Tambi^n debe 
introducir datos en el 
ordenador cuando pueda, 
para desestabilizar el 
sistenia de seguridad y 
poner al be be en un lugar 
seguro . 




Existen cuatro zonas y se 
puede pasar de una a otra 
mediante el Teleport. 
El mundo en que se 
desar*rolla el juego as de 
pesadilla. For el deambulan 
seres horribles, resultado 
de experimentos geniticos 
desastrosos. Un ordenador 
es quien realiza 
experimentos te6ricos en 




torno al desarrollo de 

nuevas formas de vida 

inteligente. 

A travis de un monitor 

aparece la visual izacidn 

tridimensional de la zona 

por la que se desplaza 



DATOS GENERALES 

TITULO Prodigy 
FABRICANTE Electric Dreams 
ORDENADOR Commodore 64 

TEMA DEL PROGBAMA 

Ciencia ficcion 



CALIFIOACION (Sobre 10 ptos 



ORrGIKAUDAD 

INTERES 

GRAFICOS 

DOLOR 

SONIDO 



TOTAL 



42 



Solo. A su alrededor hay 
cuatro indicadores del 
sistema de seguridad , que 
son cubos rotatories. Hay 
que vigilarlos con ouidado . 
En la parte superior de la 
pantalla estin los 
indicadores de la fuente 
suministradora de oxigeno , 
el alimento de Nejo y los 



panSles que mantendran 
limpio al be be. 
Observandolos podrAs 
conocer las necesidades del 
momento . En la base de la 
pantalla se suceden 
mensajes que te Iran 




orientando sobre las 
acciones a tomar. 
El juego es intrigante y 
guarda muehas sorpresas que 
deberds ir descubriendo. La 
historia de un tierno bebe 
y un curtido humanoide es 
realmente original , y exlge 
estir biea despierto para 
jugarla con 4xito. 




••••••••••••••••••••••• 



\Te l/OV A COLOCAa UAM dntm. 



( H'co. iBRo/uccAre m^o £ 



MO 56 QUE 5m(\ 'DCMIS VRQf€S 5/_ 




»2 B^PUT 



^ITEiiVii: rievxfs 



DAkdmon 



REPRESENTACION EN 
ESPANA DE: 



iRiTsfi\ii: 



PROVENZA, 385-387 
TEL. (93)207 24 99* 



TELEX 97791 
08025 BARCELONA 



l!*l^^' ' 



IMPRESORA PARA SU COMMODORE 



(optima relacion precio/prestaciones) 



-Cabezal 9 agujas 
-Doble operatividad 
-Cinta autoretintada 
-Tampon retintable 
-Ausencia de rodiUo 
-No dobta el papet 
-Elevadores inferiores 
-Admite texto rigido 
-Maximos tipos de escritura 



-"'"''"'' '^-Po.f c .. J 



Modelo SUPER C+» 120 cps, 
NLQ, ASCn y COMMODORE 



• Conexion directa a Commodore 
(cable incl.) Tracci6n y friccion 




LA IMPRESORA PARA COMMODORE, ASCII Y PC'S COMPATIBLES 

(M^ma versatilidad/predo ajustado) 

RITEMANIO-C 




—140 Gps, traccion y friccion 

— Paralelo Centronics/Commodore serie DIN 

— Tablas ASCH y PC en Rom interna 

—labia 100% Commodore y 8K RAM en modulo 

—Interface Commodore exterior incluido 

— RS 232-C opcional 



NOTA: Para Aplicaciones en las que se necesite mas velocidad, o mayor tamano de carro, tambien 
pueden aplicarse nuestros interfaces externos a los modelos RITEMAN lO/H v RITEMAN 15. 



Commodore es marca registrada de CommoEiore Business Machine, Inc. 




Vendo Vic 20 con joystick modelo 1311 
con algunos programas en cinta. Todo 
por 15.000 ptas. Interesados llamar o 
escribir a: 

Fco. Javier Espinar Alvarez 

Mtnez. de la Rosa 114, S'A 

Tel. 39 79 19 

29010 Malaga 



Vendo Video-Juego Philips G-7000, con 
8 juegos (Comecocos, Baloncesto, 
Rugby, etc.) todo en perfecto estado, 
per 20.000 ptas. Mis senas son: 

Fernando Irimia Mollar 

Virgen del Lluc, 67, 3°B 

Tel. 268 12 64 

28027 Madrid 



Cambio programas en turbo o disco pa- 
ra Comnnodore 64. 

Antonio Valero Celada 25-0 
Alcala de Henares (Madrid) 



Vendo Vic 20, ampllacion 16K, tarjeta 
de carga rapida, libros: guia del usua- 
rio, guia de referenda del programa- 
dor, curso de Basic en dos tomos. Lla- 
mar al: 

Tel. 254 80 62 por ta noche 
Madrid. 



Cambio los juegos Falcon Patrol y Pit 
Stop por cualquier otro u otros. 

Juan Manuel Aliaga Boigues 

Alcacer 32-39 

Tel. (96) 379 81 41 

Llamar de 1.30 a 2.30 

4601 4 Valencia 



Vendo interface para adaptar TV C3M 
64/128 o Vic 20 a cualquier cassette, por 
40.000 ptas. 

Antonio 
Tel. (93) 334 07 70 
Horas de comidas 



Jorge Llado Corominola 

Sant Joan Bosco, 38 

Tel. (972) 21 23 28 

17007 Gerona 



Vendo ordenador Commodore Vic-20 
con unidad de cinta por 25.000 ptas. In- 
teresados llamar a: 

Angel Cabello 

Tel. 63 00 07 

Badajoz 



Vendo Commodore 64, con datassette, 
variedad de revistas, programas de uti- 
lidad y de diversion, Libro de Introduc- 
cion al Basic I parte. Perfecto estado. 
Precio 40.000 ptas. 

Manolo de Luque Muntaner 

Pablo Piferrer, 15, 5°C 

Tel. 23 19 20 

Palma de Mallorca 

07011 Baieares 



Se vende ZX Interface 1 y ZX Microdri- 
ve mas 6 programas (Knight Lore, Ant 
Attack, Games Designer, etc.) por 
20,000 ptas. negociables. Llamar o es- 
cribir a: 

Jordi 

Angli, 33 

Tel. (93) 204 45 87 

08017 Barcelona 



Desearia recibir informacion sobre pro- 
gramas para C-16, Dirigirse a: 

Montserrat Carmona Molina 

San Juan Bosco, 38 

17007 Gerona 



16 years old boy seeks Spanish Spec- 
trum user for exchanging letters, male 
or female. I can replay in both Swedish 
or English. Please write to: 

Orjan Larsson 

Rosendal 18 C 

S-69153 Karlskoga 

Sweden (Suecia) 



Vendo Vic-20 poco usado, muchos pro- 
gramas en cinta y revistas, todo por 
15.000 ptas. 

Juan Janer Tomas 

Mayor, 173 

TeL (971) 66 05 33 

LIucmajor (Mallorca) 

Baieares 



Compro Commodore 64 en buen esta- 
do y precio. Dirigirse a: 



Tengo un C-64 y unos 60 juegos comer- 
ciales en cintas, como Pit-Stop II, 
H.E.R.O., Pole Position, Pacman, 
Hypersports, Exploding Fist, Simon's 
Basic, Paint Magic y otros y quisiera 
cambiarlos por otros como Rupert, Su- 
perzaxxon, etc. 

David 

Tel. (91) 619 53 27 

Alcorcon 



Se desea formar club de poseedores de 

Commodore 64, para el intercambio de 
programtas e ideas. Solo de Malaga. 
Los interesados llamen a: 

Juan Carlos Lucas Herrero 
Tel. 30 52 55 



intercambio todo tipo de programas 
para el Commodore 64. Poseo bastan- 
tes novedades. 

Rafael Garcia Garrido 

Zamora, 5, S^B 

Alcorcon (Madrid) 



Vendo ordenador Commodore 64, Da- 
tassette C2N y 4 programas {Simon's 
Basic, Commando, Summer Games y 
Drop Zone) en buen estado (1 ano) con 
las cajas de embalaje e instrucciones 
por solo 38.000 ptas. con 80 programas 
y 50 revistas 45.000 ptas. Interesados 
llamar o escribir a: 

Albert Galvany Matas 

P/ Creu, 33, 3° 3° 

Tei. (93) 674 68 64 6 313 80 37 

Sant Cugat del Valles 

Barcelona 



Vendo juego Dambusters, en perfecto 
estado. Version original por 1.000 ptas. 
Dirigirse a: 

Juan Rodriguez Rubio 

Lope de Vega, 20 

13200 Manzanares 

Ciudad Reai 



AtencJon!! Hemos creado un club para 
Commodore 64 y MSX solo en cinta. 
Poseemos las ultimas novedades en 
ambos ordenadores, tambien me gus- 
taria saber si alguien me puedefacilitar 
el simulador de Spectrum. Llamar o es- 
cribir a: 

Santiago Javier Navarreta Lopez 

Capitan, 146, antes 58, 3°D 

Tel, (91) 891 19 04 

28300 Aranjuez (Madrid) 



Vendo ordenador C-128 complete, in- 
cluye: monitor monocromo de 80 col.; 
unidad de disco 1570; datacassette; in- 
terfaces; proceso de textos Script 128; 
libros variados y programas muy inte- 
resantes. 

Tei. (91) 715 93 54 



Cambio juegos de C-64, interesados lla- 
mar o escribir a: 

Francisco Javier Gonzalez Prieto 

Luis Vives, 9, 1"B 

Alcala de Henares (Madrid) 



Cambio cartucho C-64 Dragonsden por 
cualquier otro. 

Fernado Morago 

Efigenia, 13 

28032 Madrid 
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DISTRIBUIDOR 

OFICIAL 

COMMODORE 




ORDENADORES 

PERIFERICOS 

SOFTWARE 



;ss^^ 



AMieA 

UNIDAD CENTRAL, TECLADO 
MONITOR 



COMMODORE 128 
COMMODORE 64 



COMMODORE 64 C + CASSEUE 

UNIDAD DE DISCO 1541 C 

UNIDAD DE DISCO 1571 

IMPRESORA STAR NL 10 



IMPRESORA SEIKOSHA SP 1000 VC 
IMPRESORA CmZEN 120 D 



299.000 ptas. 

64.900 ptas. 
39.900 ptas. 
46.900 ptas. 
49.900 ptas. 
69.900 ptas. 
79.900 ptas. 
57.500 ptas. 
67.975 ptas. 
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i^ccesoBtos 



CINTA MPS 801 

TAPA AOATIBLE _^_^__ 
FUENTE ALIMENTACION C 64 
TALADRO DISCO 



DISCOS SSDD 10 C/CARTON 

DISCOS DSDD 10 C/CARTON 

DISCOS DSDD NASSUA 10 ARCHIVADOR 
DISKETERA METALICA NASSUA 100 U 

CABLE CENTRONICS 

CABLE 40/80 



1.990 ptas. 
2.400 ptas. 
6.490 ptas. 
1.950 ptas. 
1.900 ptas. 
2.500 ptas. 
3.250 ptas. 
5.900 ptas. 
3.450 ptas. 
2.850 ptas. 
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FINAL CARTRIDGE II 
FRE. FRAME MN 3 ^ 



SINTONIZADOR MONITOR 
GASSEHE 64 



COPIADOS CAS/CAS 
QUICNSHOTII 



QUICNSHOT II PLUS. 

KONIX 

PRO 5000 



MONITOR 40/8 RGB SONIDO 
FOSFORO VERDE 



CASA 



tooos 



uos 
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9.900 ptas. 
11.900 ptas. 
24.900 ptas. 

6.900 ptas. 

3.990 ptas. 

1.600 ptas. 

2.690 ptas. 

3.100 ptas. 

3.990 ptas. 

28.000 ptas. 
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Calvo Asensio, 8 
28015 Madrid 
(Espana) 
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Telefono243 16 38 
Telex p^^^COIM-E-1 254 
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Vendo o cambio por otros programas 
o juegos los siguientes cassettes: Ram- 
" bo, Panorama para Matar, Dessert Fox, 
Decathlon y Super Pipeline. Tannbien 
cambio muchos otros, pero de menos 
calidad: Pole Position, Jorobado, Sau- 
cer Attack...) Regatearemos el precio en 
caso de venta. 

Oscar Roijals Morcillo 

Guipuzcoa, 147, 8° 2= 

Tel. 313 22 18 

08020 Barcelona 



Vendo C-64 en perfecto estado, con 
manuales, cassette Commodore, mas 
de 100 juegos en cinta (Commando, 
Cauldron II, etc) y varias revistas dedi- 
cadas al Commodore. Todo por 46.000 
ptas. 

• Alfredo Sendm 

Lope de Vega, 8 

Tel. 884 13 00 

Daganzo (Madrid) 



Cambio los juegos para Commodore 
64, Zaxxon y Blanch Hawh por «uno» 
de estos tres programas: Summer Ga- 
mes, Skyfox o Commando. 

Javier Abad Herrero 

Alcon, 14, B^A 

Tel. (987) 41 74 41 

. Ponferrada (Leon) 



Cambio 2 joysticks + 25 revistas + 2 li- 
bros de programacion + Interface Co- 
pidata + 700 programas (ultimos: Si- 
lent Service, Leader Board, Ghost'n 
Gobblins, etc..) con sus instrucciones 
por unidad de disco 1541 en buen es- 
tado. Tambien cambio programas. 

Benjamin Blazquez Calzada 

S. Juan Salle 63 c 8.3 

Tel. (954) 43 36 39 

41008 Sevilla 



ilJOCO 

Vendo Commodore 64 en buen estado, 
inciuyo datassette y joystick. Tambien 
juegos y manuales. 

Jose Ramon Garcia Cadena 

Emilio Juncadelta, 36, Entl. 2" 

Tel. (93) 371 39 70 

Esplugas de Llobregat 

Barcelona 



Atencion! Me interesarian programas 
de utilidades (graficos, musica...) o bien 
ensambladores, todo esto para CBIVt-64 
en cinta o disco. Tambien cambio pro- 
gramas de todo tipo por un joystick {II 
o V). 

German Galan 

Tel. (93) 335 32 32 

Hospitalet de Liobregat 

Barcelona 



Vendo cartucho Simon's Basic (6000 
ptas.); cartucho international scocer 
(2000 ptas.); cinta Kung Fu Master, 
Beach Head II, Skooldaze, Decathlon, 
Broad Street, por 1200 ptas. c.u. Todo 
en perfectas condiciones, todo original 
y con sus instrucciones. 

Jose Ramon Diaz Glez 

Rio Requejada, 2, 1 izda. 

33460 Llaranes (Aviles) 

Asturias 



iiAtencion radioaficionadosM Se vende 
interface (de construccion casera y es- 
pecial para C-64) para transmitir y reci- 
bir en CW y RTTY mas un programa de 
los mejorcitos con instrucciones en cas- 
tellano. Todo por 30.000 ptas. Para ma- 
yor informacion llamar o escribir a: 

Fernando Guerra Diaz 

Fernandez Ferraz, 16 

Tel. 41 42 54 

Palma (Canarias) 



Vendo/Cambio todo tipo de programas 
C-64. 

Juanjo Tombas 

. • Abadia, 3 

• Tel. (977) 84 62 36 

43460 Alcover (Tarragona) 



Intercambio programas en disco, cinta 
para el C'128. Interesados escribir a: 

Marco Rossi 

Masferrer, 14, 1° 

Tel. 330 87 80 

08028 Barcelona 



Vendo ordenador Vic-20, instrucciones 
en castellano, programas demostra- 
cion, cintas juegos y cartuchos de rega- 
io. Precio a convenir, 

Tei. (93) 717 99 04 (de 8 a 12 h. y de 

15 a 19) 



Vendo Vic-20 o lo cambio por Commo- 
dore 64 abonando la diferencia. Precio 
a convenir. 

Enrique Vicente Garcia 

PoKgono Gornal Bl. 65, 4= 3" 

Tei. 336 06 76 

Hospitalet (Barcelona) 



AMIGA. Intercambio de experiencias, 
programas y todo tipo de Informacion. 
Todo tipo de cartas se contestaran. Es- 
cribir a: 

Andreu Ibanez i Perales 

P. Ronda 76, 3-1 

Lleida 



Vendo o cambio toda ctase de progra- 
mas en CM. Poseo gran surtido de car- 
tuchos Konami, escribir a: 

Pedro J. Rodriguez Molina 

Plaza Camachos, 1, 2=8 

30002 Murcia 
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La redaccion de Input 
OS desea unas 
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FELICES NAVIDADES 
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EN TIENDAS ESPECIALIZADAS Y GRANDES ALMACENES, DIRECTAMENTE POR CORREO TELEFONO A: PROEIN, SA 



DiEtribLtidO en Cataluna por: DISCOVERY INFORMATIC C/. Arco Ins, 75 - BARCELONA - Teis. 256 49 08 / 09 



Vela7Quez, 10 - ?5001 Madrid - Tels. (91 ) 2^6 22 08/09 



Me puedes regalar... 







una raaio para 






'III 



pero lo q ue yo necesito... 
es este Commodore 128. 




Y 16 necesito porque es el mas 128 de todo el 
mercado.Porque es Sordenadores en imo so- 
lo, solo con pulsar una tecla. 

Lo necesito porque es compatible con el 
C-64, y todos sus programas. 



commodore 



Lo necesito, porque ya que me decido, quie- 
ro lo mejor. 

Lo necesito , porque todavia hay un par de vi- 
deo juegos en los que me gana mi vecino 
y eso no puede ser. 
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Mkroelectronica y Control , s. a. Unico representante de Commodore en Espana. d Valencia, 49^53 08015 Barcelona - cl Ardenmns, 8 28028 Madri^' 



